エクセル マクロ セルを縦に結合したいです。
現在、Visual Basicにてコードを作成中です。（初心者です。）
現時点での出来ること
5列目の2～10行目に何か入力されれば
その隣のセルに「お疲れ様です」と入力される（ここまではコード出来てます。）
例：Ｂ５セルに何か入力があればＣ5セルに「お疲れ様です」と入力される。
Ｃ5セルに何か入力あればＤ5セルに「お疲れ様です」と入力される・・・
といった内容です。
そのあとやりたい事（ここからコード出来ません）
Ｂ５セルに何か入力があればＣ5セルに「お疲れ様です」と入力された後
Ｃ5～10行目を縦に結合し、文字を縦書きにする。
Ｃ５セルに何か入力があればＤ5セルに「お疲れ様です」と入力された後
Ｄ5～10行目を縦に結合し、文字を縦書きにする・・・
といった内容です。
一応コード下記に載せます。
Sub macro1()
Dim a As Variant
Dim i As Long
Set a = Worksheets("sheet1")
For i = 10 To 2 Step -1
If Len(a.Cells(5, i).Value) > 0 Then 'もし、5列目の2～10行目に何か入力されれば
a.Cells(5, i).Offset(0, 1).Value = "お疲れ様です"
Exit For
End If
Next i
End Sub
すいませんがコード記載よろしくお願いいたします。
回答よろしくお願いします。
お礼
なるほど。 ありがとうございました。 やってみます。