VBA の文字列結合について

Question

VBAで複数のセルの文字列を結合して一つの文にしたいのですがmargeを使ったところ結合はされますが一つにはまとまらないし中の文も消えてしまいます。初歩的な質問ですみません。

A	B	C
東京都は	明日朝	晴れです
京都府は	明日夜	雨です
大阪府は	明日昼	曇りです
...	...	...
...	...	...

この表を

A	B	C
東京都は明日朝晴れです
京都府は明日夜雨です
大阪府は明日昼曇りです
.........
.........

上記のようにしたいです。よろしくお願いします。

Comments

[m.ts10806]

ご自身がやってみたこと調べたことを記載してください。
これだけだと単に値取り出して&で繋ぐだけで良いように思うのですが、何か制約があるのでしょうか。
質問内容からは分かりませんでした。

[PTK]

初心者タグが付いている通り私はまだ初心者です。特に深い質問でもありません。やったことは調べてやったことは一文目に書いてあります。やりたいことはその「単に値取り出して&で繋ぐだけ」です。またそれを下のセルにも適用されるようにしたいです。

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow As Long
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    Dim i
    For i = 1 To lastRow
        ws.Range("A" & i).Value = ws.Range("A" & i).Value & ws.Range("B" & i).Value & ws.Range("C" & i).Value
    Next
    
    ws.Range("B1:C" & lastRow).ClearContents
End Sub