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

Obwohl, als MasterMix sagt, dies wird am einfachsten erreicht, indem eine Formel, wenn Sie einen Grund haben, warum VBA verwendet werden muss, dann hängt es davon ab, wie Sie möchten, geben Sie die Zellen.

Man könnte dies als eine Funktion:

Private Function addTwoCells(rngA As Range, rngB As Range) As String 
addTwoCells = rngA & rngB 
End Function

All dies tut, ist die Replikation der (viel schneller), integrierte Excel-Funktion verketten so, obwohl.

Könnten Sie auch tun, es in einem der über hundert Arten in einem Verfahren, hier ist ein Weg, und der Benutzer aufgefordert, für die Bereiche:

Private Sub addTwoCellsProc() 
Dim rngA As String 
Dim rngB As String 
Dim rngOutput As String 
Dim rngTest Als Range 

Tun 
rngA = InputBox("Bitte geben Sie die erste Zelle-Adresse", "Zelle") 
rngA = Range(rngA).Cells(1, 1).Adresse 
Set rngTest = Intersect(Range(rngA).Cells(1, 1), ActiveSheet.Zellen) 
Schleife, Bis Sie Nicht rngTest Ist Nichts 

Tun 
rngB = InputBox("Bitte geben Sie die zweite Zelle-Adresse", "Zelle B") 
rngB = Range(rngB).Cells(1, 1).Adresse 
Set rngTest = Intersect(Range(rngB), ActiveSheet.Zellen) 
Schleife, Bis Sie Nicht rngTest Ist Nichts 

Tun 
rngOutput = InputBox("Bitte geben Sie die Ziel-Zelle-Adresse", "Ausgabe-Zelle") 
Set rngTest = Intersect(Range(rngOutput), ActiveSheet.Zellen) 
Schleife, Bis Sie Nicht rngTest Ist Nichts 

Range(rngOutput) = Range(rngA) & Range(rngB) 
End Sub

Könnte man auch die Verwendung von vordefinierten Bereichen und Schleife durch Sie, wenn Sie mehrere Bereiche zu kombinieren. Wenn Sie erklären, ein bisschen mehr über das Szenario dann jemand möglicherweise spezifischen code.

InformationsquelleAutor Lunatik

Dieser ist schneller, wählen Sie einfach die Zellen, und Sie sind eingebunden in die erste Zelle.

'------------------------------------------------------------------------
' Procedure : Concatenate Text
' Author    : Tim Bennett
' Date      : 11/6/2015
' Purpose   : Concatenate selected text into first column
'------------------------------------------------------------------------
'
'Sub Concatenate_Formula(bConcat As Boolean, bOptions As Boolean)
Sub Concatenate()

Dim rSelected As Range
Dim c As Range
Dim sArgs As String
Dim bCol As Boolean
Dim bRow As Boolean

    'Set variables
    Set rOutput = ActiveCell
    bCol = False
    bRow = False

    On Error Resume Next

    'Use current selection
    Set rSelected = Selection

    On Error GoTo 0

    'Only run if cells were selected and cancel button was not pressed
    If Not rSelected Is Nothing Then
        sArgs = "" 'Create string of cell values
        firstcell = ""

        For Each c In rSelected.Cells
            If firstcell = "" Then firstcell = c.Address(bRow, bCol)
            sArgs = sArgs + c.Text + " " 'build string from cell text values

            c.Value = "" ' Clear out the cells taken from
        Next

        'Put the result in the first cell
        Range(firstcell).Value = sArgs



   End If
End Sub

InformationsquelleAutor Tim B