Verketten Sie zwei ausgewählte Zellen und löschen Sie

Question

Ich habe Daten in Spalte A mit 1000 Zeilen Daten. Ich muss zwei ausgewählte Zellen verketten. Beispiel, Daten in benutzerdefinierten Zellen A10 & A11 wird in Zelle A10 verkettet. Danach muss ich den Inhalt von Zelle A11 löschen.

Der folgende Code führt die Verkettung durch und legt die Daten in A10 ab. Der Inhalt der A11-Zellendaten wird jedoch nicht gelöscht. Ich muss den Inhalt der A11-Zelle löschen.

Jede Hilfe würde sehr geschätzt werden.

Option Explicit 
Sub MergeStems() 

    Dim ColFirst As Long 
    Dim ColLast As Long 
    Dim JoinedValue As String 
    Dim RowCrnt As Long 
    Dim RowFirst As Long 
    Dim RowLast As Long 

    RowFirst = Selection.Row 
    RowLast = RowFirst + Selection.Rows.Count - 1 

    ColFirst = Selection.Column 
    ColLast = ColFirst + Selection.Columns.Count - 1 

    If ColFirst <> 1 Or ColLast <> 1 Then 
     Call MsgBox("Please select a range within column ""A""", vbOKOnly) 
     Exit Sub 
    End If 

    With Worksheets("Sheet1")  ' Worksheet of your choice. 
     JoinedValue = .Cells(RowFirst, "A").Value 
     For RowCrnt = RowFirst + 1 To RowLast 
     JoinedValue = JoinedValue & " " & .Cells(RowCrnt, "A").Value 
     Next 
     .Cells(RowFirst, "A").Value = JoinedValue 
    End With 

    End Sub 

Answer 1

Fügen Sie diese kurz vor dem "Ende mit"

.Cells(RowFirst + 1, 1).Resize(Selection.Rows.Count - 1, 1).ClearContents 

Hinweis: nicht den Punkt am Anfang

EDIT verpassen: dies jetzt versuchen. getestet auf meinem PC und arbeitete