選択した2つのセルを連結して削除します。

Question

データが1000行ある列Aのデータがあります。選択した2つのセルを連結する必要があります。例、ユーザー選択セルのデータA10 & A11がセルA10で連結されます。この後、私は細胞A11の内容をクリアする必要があります。

以下のコードは連結の役目を果たし、データをA10に格納します。しかし、A11細胞データの内容はクリアされません。私はA11細胞の内容をクリアする必要があります。

ご協力いただければ幸いです。

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

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

NOTE "で終わる" だけ前にこれを追加：いけない最初

EDITでドットを逃す：今これを試してみてください。私のPC上でテストし、働いた