[[20220111145317]]　『セルの内容を横ではなく縦に分割したい』（野堂）　ページの最後に飛ぶ

『セルの内容を横ではなく縦に分割したい』（野堂）

1つのセルに大量の文字列が入力されており、それを;を目安に分割したかったので、調べて以下のVBAを使用しました。

sub セル内容分割()

　　Dim srcRange As Range

    Dim destRange As Range

    '分割したいデータが設定されているセルを指定
    Set srcRange = Worksheets("Sheet1").Range("B2")
    '分割後のデータの設定を開始するセルを指定
    Set destRange = Worksheets("Sheet1").Range("B2")

    '「;(セミコロン)」で分割
    srcRange.TextToColumns Destination:=destRange, Semicolon:=True

End Sub

セルの内容を分割することはできたのですが、横方向に分割してしまうため、縦方向に分割する方法があれば教えて欲しいです。
よろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

 With Worksheets("Sheet1").Range("B2")
    buf = Split(.Value, ";")
    .Resize(UBound(buf) + 1).Value = WorksheetFunction.Transpose(buf)
 End With
（´・ω・`） 2022/01/11(火) 15:14

コメント返信：

[ 一覧(最新更新順) ]

[[20220111145317]] 『セルの内容を横ではなく縦に分割したい』（野堂） ページの最後に飛ぶ

[[20220111145317]]　『セルの内容を横ではなく縦に分割したい』（野堂）　ページの最後に飛ぶ