【EXCEL】一つのセルに入ったコンマ区切りデータを分割する

1セルにCSV形式のコンマ区切り文字を流し込む制御機器があるので展開したいという問い合わせ

Sub Macro1()

    Dim CellPre() As String
    TempData = Cells(2, 2)
    CellPre = Split(TempData, ",")  'CR LF?????
    For i = 1 To UBound(CellPre) + 1
      Cells(4, 1 + i) = CellPre(i - 1)
    Next
End Sub

上記のコードで対応

excel

おすすめ

3件のフィードバック

  1. よし より:

    「区切り位置」を使わない理由があるのかな?

  2. よし より:

    「区切り位置」を使わない理由があるのかな?

  3. よし より:

    「区切り位置」を使わない理由があるのかな?

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です