エクセルVBAマクロを自動作成する無料アプリです。
例として「(空白)カンマ区切りの文字列の単語を縦に並べる」VBAマクロを作成します。
・カンマ(,)区切りだけでなく、半角空白( )、改行文字(Chr(10))なども対応できます。
・一つのセルだけでも可能です。
事例 カンマ区切りの文字列の単語を縦に並べます。
アプリの設定
アプリへのリンク ⇒カンマ区切りのデータを縦に並べる
アプリの画面
アプリで作成したコードを、VBE画面に貼り付けます。
単語が縦に並びました。
できました😁
VBAコードを見る
Sub デモ() 'カンマ区切りのデータを縦に並べる
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim cellRange As String, myCell As Range
Sheets("Sheet1").Select
cellRange = "a1"
Dim myRow As Long, combinedString As String, myElement As Variant
combinedString = ""
For myRow = Range("a1").Row To Range("a4").Row
combinedString = combinedString & Cells(myRow, Range("a1").Column).Value & "|"
Next myRow
combinedString = Replace(combinedString, ",", "|")
If Len(combinedString) > 0 Then
combinedString = Left(combinedString, Len(combinedString) - 1)
End If
myElement = Split(combinedString, "|")
Sheets("Sheet1").Select
Range("d1").Resize(UBound(myElement) + 1, 1).Value = Application.WorksheetFunction.Transpose(myElement)
Application.DisplayAlerts = true
Application.ScreenUpdating = True
End Sub