タブ区切りを行方向に分割したい

投稿者 : くるみ     投稿日時 : 2023/01/25(Wed) 16:18:54     OS : Windows 10     EXCEL : Office 365

---

VBA初心者です。
色々調べてみたのですがうまくいかない為ご教授ください。

１行目　　　A　　　B　　　C　　　D　　　　　　　E　　　　　　　　　A　　　B　　　C　　　D　　　　　　　E　
２行目　　　　　　　　　　　　　111　　　　　　　　　　　　　　　　 　 　111　　　　　 111
３行目　　　　　　　　　　　　　156　　　　　　　　　　　　　　　　　 　 156　　　　　 156　　　　　　　　　　　
４行目　　　　　　　　　　　　　123,124　　　　　　　　　　　　　　　　 123　　　　　 123,124
５行目　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 124　　　　　　　　　　　　
６行目　　　　　　　　　　　　　132,134,145　　　　　　　→　　　　　　 132　　　　　 132,134,145
７行目　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 134
８行目　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 145
９行目　　　　　　　　　　　　　111,894　　　　　　　　　　　　　　　　 111　　　　　 111,894
10行目　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 894


上記のようにD列にカンマ区切りで数字が入力されています。
（カンマ区切りの数だけ下に空白セルがあります。）
このD列のデータをB列に縦方向に並べたいです。
（上記左側がVBA実行前、VBA実行後右側のような形にしたいです。）

ぜひアドバイス頂けたら幸いです。よろしくお願い致します。

投稿者 : さんこう     投稿日時 : 2023/01/25(Wed) 16:32:19

---

参考になれば。

Sub Test()
    Dim b As Long
    Dim v As Variant
    
    b = 6
    v = Split(Cells(6, "D"), ",")
    For i = 0 To UBound(v)
        Cells(b, "B") = v(i)
        b = b + 1
    Next

End Sub

投稿者 : くるみ     投稿日時 : 2023/01/25(Wed) 17:11:10

---

さんこう様

ご回答ありがとうございます！
実行してみたところ、６行目のみしかできなかったのですが、
D列２行目～データがある最終行まで行うようにすることは可能でしょうか？
（説明不足で申し訳ございません）

投稿者 : さんこう     投稿日時 : 2023/01/25(Wed) 17:50:49

---

＞実行してみたところ、６行目のみしかできなかった

そのように作ったので、予定通りです。
Split(Cells(6, "D")
の「6」を、２行目～データがある最終行までの
空欄でない行で繰り返せばいいです。

投稿者 : tek     投稿日時 : 2023/01/26(Thu) 19:54:22

---

失礼します。
365ならTextJoin関数が使えます。
一旦連結して、分割代入すれば良いです。

Sub test()
    Dim ss() As String
    Dim s As String
    With ActiveSheet
        s = Application.WorksheetFunction.TextJoin(",", True, .Range("D2", .Cells(.Rows.Count, "D").End(xlUp)))
        ss = Split(s, ",")
        .Range("B2").Resize(UBound(ss) + 1).Value = Application.Transpose(ss)
    End With
End Sub