Lot de concaténation de chaîne dans Excel

J'ai quelques centaines de cellules dans Excel je voudrais concaténer dans une seule chaîne. Est-il une méthode plus simple de faire cela que de passer par un par un manuellement afin de les entrer dans CONCATENATE(A1, A2, ....)?

CONCATENATE(A1:A255) ne fonctionne pas.

Il y a probablement des façons de faire à l'aide de visual basic. Ce que vous voulez rechercher est "concaténer une PLAGE dans excel"
Il y a des façons de le faire sans VBA ainsi: get-digital-help.com/2011/02/09/...
Split et Join sont deux fonctions évidentes manquant à partir d'Excel. Très frustrant.

InformationsquelleAutor Green Demon | 2013-02-28

34

*Dans un nouvel onglet, tapez A1 dans la cellule A1,

*Type A2 dans la Cellule A2

*Utilisation de remplissage de la série pour compléter les valeurs dans la colonne A

*Type A1 dans la cellule B1
- Utiliser cette forumal dans la cellule B2
  
  =B1&","&A2
- Copie de la formule vers le bas.
Copier et coller des valeurs de la récolte de la chaîne de valeurs que vous avez créé.
```
A1  A1
A2  A1,A2
A3  A1,A2,A3
A4  A1,A2,A3,A4
A5  A1,A2,A3,A4,A5
A6  A1,A2,A3,A4,A5,A6
A7  A1,A2,A3,A4,A5,A6,A7
A8  A1,A2,A3,A4,A5,A6,A7,A8
A9  A1,A2,A3,A4,A5,A6,A7,A8,A9
A10 A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
```
- c'est une grande bêtise méthode qui fonctionne à merveille, merci
- Il est intéressant de noter que l'aide les cellules n'ont pas besoin d'être adjacents les cellules sont la concaténation. Vous pouvez même les mettre sur une feuille séparée, afin de ne pas encombrer les choses.
- Par des virgules séparent les valeurs, suivez ces instructions et ce que la formule en B2: =B1 & ", "","" ," & A2
- Incroyable! De l'excellent travail pour moi. Merci
- C'est génial.
InformationsquelleAutor James Jenkins

Appuyez sur Alt-F11, insérez un nouveau module, collez code ci-dessous.

Public Function concatRange(data As Range, Optional sep As String = "") As String
    Dim ret As String
    Dim sep2 As String
    ret = ""
    sep2 = ""

    For Each cell In data
        ret = ret & sep2 & cell.Value
        sep2 = sep
    Next cell

    concatRange = ret
End Function

Utilisation:

=concatRange(A8:D11;", ")    'OS with ; list separator
=concatRange(A8:D11,", ")    'OS with , list separator or in a macro code

=concatRange(A8:D11)

InformationsquelleAutor dedek

Voir ce billet de blog ici: http://www.dullsharpness.com/2011/11/14/excel-vba-range-to-csv-range2csv-function/

Vous pouvez l'utiliser comme, par exemple, avec un tuyau de délimiteur:

=Range2Csv(A1:A255,"|")

Accéder à votre éditeur VBA à l'aide de Alt+F11 et le déposer dans un module.

Extrait de Code est ici:

Option Explicit
'**********************************************
'* PURPOSE: Concatenates range contents into a
'*          delimited text string
'*
'* FUNCTION SIGNATURE: Range2Csv(Range, String)
'*
'* PARAMETERS:
'*    Range  - the range of cells whose contents
'*             will be included in the CSV result
'*    String - delimiter used to separate values
'*             (Optional, defaults to a comma)
'*
'* AUTHOR: www.dullsharpness.com
'*
'* NOTES: [add'l notes removed for brevity]
'*
'**********************************************
Public Function Range2Csv(inputRange As Range, Optional delimiter As String)
  Dim concattedList As String 'holder for the concatted CSVs
  Dim rangeCell As Range      'holder cell used in For-Each loop
  Dim rangeText As String     'holder for rangeCell's text

  'default to a comma delimiter if none is provided
  If delimiter = "" Then delimiter = ","

  concattedList = ""          'start with an empty string

  'Loop through each cell in the range to append valid contents
  For Each rangeCell In inputRange.Cells

    rangeText = rangeCell.Value 'capture the working value

    'Only operate on non-blank cells (i.e. Length > 0)
    If Len(rangeText) > 0 Then
      'Strip any delimiters contained w/in the value itself
      rangeText = WorksheetFunction.Substitute(rangeText, delimiter, "")

      If (Len(concattedList) > 0) Then
        'prepend a delimiter to the new value if we
        'already have some list items
        concattedList = concattedList + delimiter + rangeText
      Else
        'else if the list is blank so far,
        'just set the first value
        concattedList = rangeText
      End If
    End If

  Next rangeCell

  'Set the return value
  Range2Csv = concattedList

End Function

InformationsquelleAutor Marc

7

concatener(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 a53, a54, a55, a56, a57, a58 a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70, a71, a72, a73, a74, a75, a76, a77, a78, a79, a80, a81, a82, autoroute a83 a84, a85, a86, a87, a88, a89, a90, a91, a92 a93, a94, a95, a96, a97, a98, a99, a100, a101, a102, a103, a104, a105, a106, a107, a108, a109, a110, a111, a112, a113, a114, a115, a116, a117, a118, a119, a120, a121, a122, a123, a124, a125, a126, a127, a128, a129, a130, a131, a132, a133, a134, a135, a136, a137, a138, a139, a140, a141, a142, a143, a144, a145, a146, a147, a148, a149, a150, a151, a152, a153, a154, a155, a156, a157, a158, a159, a160, a161, a162, a163, a164, a165, a166, a167, a168, a169, a170, a171, a172, a173, a174, a175, a176, a177, a178, a179, a180, a181, a182, a183, a184, a185, a186, a187, a188, a189, a190, a191, a192, a193, a194, a195, a196, a197, a198, a199, a200, a201, a202, a203, a204, a205, a206, a207, a208, a209, a210, a211, a212, a213, a214, a215, a216, a217, a218, a219, f220, a221, a222, a223, a224, a225, a226, a227, a228, a229, a230, a231, a232, a233, a234, a235, a236, a237, a238, a239, a240, a241, a242, a243, a244, a245, a246, a247, a248, a249, a250, a251, a252, a253, a254, a255)

PowerShell il!
```
"concatenate(a$((1..255) -join ', a'))" | clip
```
Ouvrir le fichier texte copier et coller

"Pour rapidement sélectionner des cellules, vous pouvez appuyer sur la touche CTRL et cliquez sur les cellules que vous souhaitez être inclus dans la fonction concatener.
Exemple,
Sélectionnez une cellule
Type =concatenate( dans la barre de formule
Appuyez sur et maintenez la touche CTRL et cliquez sur les cellules pour être inclus.
Relâchez la touche CTRL bouton
Type ) dans la barre de formule et appuyez sur Entrée"

InformationsquelleAutor E.V.I.L.

Cette fonction VBA concaténer le contenu de cellules, avec une option de délimiteur, si nécessaire. Le copier dans un module standard:

  Option Explicit

  Function Concat(CellRange As Range, Optional Delimiter As String) As String 
 ' this function will concatenate a range of cells and return the result as a single string
 ' useful when you have a large range of cells that you need to concatenate
 ' source: http://chandoo.org/wp/2008/05/28/how-to-add-a-range-of-cells-in-excel-concat/

  Dim retVal As String, dlm As String, cell As Range
  retVal = ""
  If Delimiter = Null Then
      dlm = ""
  Else
    dlm = Delimiter
  End If
  For Each cell In CellRange
      If CStr(cell.Value) <> "" And CStr(cell.Value) <> " " Then
          retVal = retVal & CStr(cell.Value) & dlm
      End If
  Next
  If dlm <> "" Then
      retVal = Left(retVal, Len(retVal) - Len(dlm))
  End If
  Concat = retVal
End Function

InformationsquelleAutor chuff

2

Si vous cherchez un pur Excel approche (c'est à dire pas VBA), puis la méthode proposée par James Jenkins est le meilleur.
Si vous êtes heureux à l'aide de VBA puis ouvrir l'éditeur VBA, ajouter un nouveau module, et ajoutez ce code:
```
Option Explicit

Public Function JoinText(cells As Variant,Optional delim_str As String) As String
    If cells.Columns.count < cells.Rows.count Then
       JoinText = Join(WorksheetFunction.Transpose(cells), delim_str)
    Else
       JoinText = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(cells)), delim_str)
    End If
End Function
```
Pour ouvrir l'éditeur VBA facilement appuyez sur Alt + F11.
Pour insérer un module vous cliquez sur le classeur répertoriés dans le "Projet" de la fenêtre.

La fonction est appelée à partir d'excel comme suit:
```
=JoinText(A1:C1)
```
Si vous souhaitez ajouter un séparateur (par exemple par des virgules):
```
=JoinText(A1:C1,",")
```
Le but d'utiliser la fonction de transposition est de transformer le tableau 2d, des "cellules", dans un tableau 1d. La reson pour cela est que la fonction VBA Rejoindre accepte uniquement un tableau 1d.
La raison de l'utilisation de deux d'entre eux est si JoinText est à la recherche à une rangée de cellules (qui n'est qu'un tableau 2d), puis le premier appel à transposer, transpose cette 2d ligne de tableau en 2d tableau de la colonne, la deuxième appel transforme en un tableau 1d.

InformationsquelleAutor user425678
2

Ma méthode préférée est de couper et coller les valeurs dans un éditeur de texte qui permet d'expressions régulières, ensuite, j'ai simplement supprimer les onglets (ou espaces) avec un rechercher et remplacer sur ma sélection.

Vous pouvez également l'utiliser pour insérer des virgules, espaces, ou ce que vous voulez.

C'est un tonne plus rapide que de taper =concatenate(A1,",","A2",",",......)
- J'aime TextPad (freeware). -Appuyez sur F8 pour tirer vers le haut le "Rechercher/Remplacer" boîte de dialogue. -cochez la case "utiliser l'expression régulière" - TROUVER: \n remplace: ,
InformationsquelleAutor kmort
1

Il n'est pas purement Excel, mais il y a un moyen facile de le faire avec Word.
1. Sélectionnez les cellules que vous voulez concaténer et copier/coller dans Word. Cela crée une table.
2. Sélectionner tout le tableau.
3. Convertir le tableau en texte. Utiliser les marques de paragraphe (ou quelque chose d'autre qui n'apparaît pas dans votre texte) comme séparateurs.
4. Sélectionnez tout le texte.
5. Utiliser Remplacer pour supprimer les marques de paragraphe. (Dans le "Trouver", saisissez ^p. Laissez le "Remplacer par" case vide).
InformationsquelleAutor Ronald Bourret
1

Si vous avez Excel 2016, vous pouvez utiliser une formule matricielle:

Entrer

=concat(a1:a255)

dans la cellule, puis appuyez sur

[ctrl]+[shift]+[enter]
- Pas besoin d'entrer en tant que formule matricielle en fait, CONCAT() accepte un tableau d'entrée, mais retourne une chaîne de caractères, de sorte que vous n'avez qu'à frapper enter
InformationsquelleAutor

où les valeurs que vous souhaitez concantenate début de la ligne 2 colonne 3 de votre feuille de

Sub GOWN()
roww = 2
Do While cells(roww, 2) <> ""
    aa = cells(roww, 3)
    dd = dd & aa & ","
    roww = roww + 1
Loop
cells(roww + 1, 3) = dd
End Sub

InformationsquelleAutor Fraser Porter

0

Suffit d'ajouter votre séparateur dans une concaténation:
```
=concatenate(A1, ",")
```
Ensuite copier toutes les concaténations, coller en tant que Valeurs. Ensuite Copier ces Valeurs, de les coller dans une transposition. Ensuite, copiez la Transposée de valeurs et de les coller dans un traitement de texte. Faites une recherche sur le séparateur ET l'espace précédant les valeurs et les faire remplacer pour tout le séparateur. Cela devrait vous donner une chaîne concaténée de toutes les valeurs avec un séparateur. C'est beaucoup plus facile que les autres options.

InformationsquelleAutor John Lehrkind
0

Copié sans vergogne de ce site:
1. Sélectionnez la cellule où vous avez besoin du résultat.
2. Aller à la barre de formule et saisissez ... "=A1:A5"
3. Sélectionner l'intégralité de la formule et appuyez sur la touche F9 (ce qui convertit la formule dans les valeurs).
4. Supprimer les accolades par les deux bouts.
5. Ajouter =CONCATENATE( au début du texte et à la fin il avec un tour de pédalier).
6. Appuyez Sur Entrée.
Ce qui est particulièrement révélateur ici, c'est que lors de l'édition d'une formule, en appuyant sur F9 remplace la formule avec le résultat de cette formule. Où c'est une plage, il la remplace par une liste du contenu de cette gamme.

InformationsquelleAutor Steve Melnikoff

Vous devez vous connecter pour publier un commentaire.