VBAの複数行に対しての文字列連結について

A　D
１　　日付
２　　2010年10月
３　　2
４　　3
５　　4
６　　5
：　　:
31 　 30
32 　 31
33　 2010年11月
：　　：

　　↑というD列があります。（J列も同じ形式の日付が入っています）


A　D
１　　日付
２　　2010年10月
３　　2日
４　　3日
５　　4日
６　　5日
：　　:
31 　 30日
32 　 31日
33　 2010年11月
：　　：

　　↑こういった表にしたいです。

日付に”日”の文字列を連結させるために
Range("D:D, J:J").Value = Range("D:D, J:J").Value & "日"
と記述しているのですが、「型が一致しません」のエラーが出てしまいます。
（D1やD2にも”日”が連結されてしまうのはこの際構いません）

連続した複数の行に文字列を連結させるにはどうしたらよいのでしょうか。
アドバイスを頂けたら幸いです。

No.1 ベストアンサー 回答者： siffon9 回答日時： 2015/12/15 19:36

以下で如何でしょう、foo()を実行してみてください。

--------------------------------------------
Sub foo()
Call appendDay(1, "D")
Call appendDay(1, "J")
End Sub

Sub appendDay(startRow As Long, targetCol As String)
Dim row As Long: row = startRow
Do While Cells(row, targetCol).Value <> ""
If Cells(row, targetCol).Value = "日付" Then
GoTo Continue
End If
If Len(Cells(row, targetCol).Value) > 3 Then
GoTo Continue
End If
Cells(row, targetCol).Value = Cells(row, targetCol).Value & "日"
Continue:
row = row + 1
Loop
End Sub

この回答へのお礼

siffon9様

早急なご回答、感謝申し上げます。
お陰様で理想通りの表が完成しました。

後は頂いたコードを自分でも書けるように
組み替えたりなどして解析します。
ありがとうございました。

お礼日時：2015/12/16 09:15