Excelで複数セルからの文字の結合
B列からF列までのセルの内容を結合してH列に表示させるため、
以下のVBAを使用したのですが、結果が上手くいきません
原因など分かりましたら、指摘をお願いします
マクロの内容
Sub test01()
Dim c As Range
Dim i As Long
With ActiveSheet
i = 1
Do While .Cells(i, "A") <> ""
If .Cells(i, "A") <> "" Then
For Each c In .Range(.Cells(i, "B"), .Cells(i, "B").Cells(i, "F"))
.Cells(i, "H") = IIf(.Cells(i, "H") = "", c, .Cells(i, "H") & "/" & c)
Next c
Else
.Cells(i, "H") = .Cells(i, "B")
End If
i = i + 1
Loop
End With
End Sub
シートの内容
ＡＢＣＤＥＦＧＨ
1 １あいうえお
2 ２か くけこ
3 ３さし せそ
実行の結果
あ/い/う/え/お/
か/き/く/け/こ//さ/し//せ/そ/
さ/し//せ/そ/////////////
上記のようになってしまいます
２行目の「か/き/く/け/こ」の後に１行下の「さ/し//せ/そ」
が入っている状態です
よろしくお願いします
お礼
助かりました。