Kombinieren Sie mehrere Zellen in einer in excel mit makro?

Ich habe eine ähnliche Frage wie diese:

Zusammenführen der Inhalte von 2 Zellen in ein anderes 3. Zelle mit VBA in Excel

Aber ich wollen, kombinieren Sie eine Strecke der Zellen innerhalb einer Spalte, z.B. A2:A50. Manchmal habe ich mehr als 300 Zellen werden zu einem zusammengefasst. Werte sind text. Gibt es eine Möglichkeit, ändern Sie das makro so, dass es funktioniert auf einer Reihe anstelle von nur zwei Zellen?

Dank!

InformationsquelleAutor CCID | 2010-01-18

excel vba

Basierend auf der Faden, den Sie zitieren, ich denke, Sie zurückgeben möchten, die concatination aller gespeicherten Werte der Zellen, interpretieren alle Werte als strings?

Für das, könnten Sie ein VBA-makro verwenden, die wie folgt aussieht:

Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
    Dim finalValue As String

    Dim cell As Excel.Range

    For Each cell In sourceRange.Cells
        finalValue = finalValue + CStr(cell.Value)
    Next cell

    ConcatinateAllCellValuesInRange = finalValue
End Function

Als ein Beispiel, man könnte es so nennen:

Sub MyMacro()
    MsgBox ConcatinateAllCellValuesInRange([A1:C3])
End Sub

Ist es das was Sie gesucht haben?

Mike

InformationsquelleAutor Mike Rosenblum

Versuchen Sie das folgende makro, nicht sehr elegant, dass es keinen Fehler überprüfen usw funktioniert aber. Weisen Sie das makro einer Schaltfläche, klicken Sie in eine Zelle, klicken Sie auf die makro-Taste, markieren Sie die gewünschte (source) - Bereich Zusammenführen verwenden Sie Ihre Maus, (wird Autom-in-Bereich in der input-box in der Dialog box, klicken Sie auf ok markieren Sie die Zielzelle (wird Autom die input box in die nächste Dialog-box) auf ok klicken, werden alle Zellen zusammengeführt mit einem einzigen Leerzeichen in der Ziel-Zelle, die in der original-source-Bereich). Bis zum löschen der überflüssigen Zellen manuell. Workks mit Zeilen und Spalten, aber nicht blockiert.

Sub JoinCells()

Set xJoinRange = Application.InputBox(prompt:="Highlight source cells to merge",    Type:=8)
xSource = 0
xSource = xJoinRange.Rows.Count
xType = "rows"
If xSource = 1 Then
    xSource = xJoinRange.Columns.Count
    xType = "columns"
End If
Set xDestination = Application.InputBox(prompt:="Highlight destination cell", Type:=8)
If xType = "rows" Then
    temp = xJoinRange.Rows(1).Value
    For i = 2 To xSource
        temp = temp & " " & xJoinRange.Rows(i).Value
    Next i
Else
    temp = xJoinRange.Columns(1).Value
    For i = 2 To xSource
        temp = temp & " " & xJoinRange.Columns(i).Value
    Next i
End If

xDestination.Value = temp

End Sub

InformationsquelleAutor Paul McMahon

0

Nur um Mike ' s Lösung, wenn Sie möchten, um Ihre Auswahl aus einer Variablen anstelle von einem definierten Bereich (ich hatte Probleme mit der syntax):
```
Sub MyMacro()

dim myVar As Range

    MsgBox ConcatinateAllCellValuesInRange(myVar)

End Sub
```
InformationsquelleAutor HotSauceCoconuts

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.