【ノーコード】VBAコードを作成する無料アプリ

AIで自分の価値を高める方法とは🙄

MENU

【ノーコードVBA】カンマ(空白)区切りの文字列を縦に並べる

エクセル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 
   

 

 

【スクリーンショット5選】エクセルVBAで、カンマ区切り