対象列の隣の列の文字を結合するスクリプト

VBAなんてやらないよ！っておもってたら単純作業の繰り返しには効率的だという事が発覚！
なのでメモっておく。

これはJ2:J6000までの列とK2:K6000までのセル内を結合し、その後K列の内容を削除する。
結合したい対象のセルが違う場合はCells内をいじればよくて(1,1)を基準として数を加減すればOK
Range内をかえれば対象列も変更可能。

Sub Mojimoji()
  Dim Moji As String
  Dim c As Range
  
  For Each c In Range("J2:J6000")
    Moji1 = c.Cells.Value
    Moji = c.Cells(1, 2).Value
    If Moji <> "" Then Moji = c.Cells.Value & Moji
    If Moji <> "" Then c.Value = Moji
    c.Cells(1, 2).Value = Null
  Next
End Sub

セル内に ＝J1&K1って入力してコピペでもいい作業なんだけどね…