Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : Excel 2019)
文字列の分割
投稿日時: 22/03/22 22:25:05
投稿者: kifune

下記のようなデータがあるとき
1個のセルの名前を1個1文字ずつのセルに分割して入れる処理をしたい
 
1個のセル        6個のセル
ふじおかこうた   → ふじおかこうた
             7個のセル
かつうらまさき   → かつうらまさき
             7個のセル
みうらこうせい   → みうらこうせい
             7個のセル
いしかわゆきと   → いしかわゆきと
 
以上ご教示ください。

回答
投稿日時: 22/03/23 07:52:43
投稿者: よろずや

A列にある文字列をB列〜H列に分解するとして

Option Explicit
Sub Sample()
    Dim Row As Long, Pos As Long
    For Row = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For Pos = 1 To Len(Cells(Row, 1).Value)
            Cells(Row, Pos + 1).Value = Mid(Cells(Row, 1).Value, Pos, 1)
        Next Col
    Next Row
End Sub

投稿日時: 22/03/23 08:32:51
投稿者: kifune

Next Colを Next Posにして上手くできました、
ありがとうございました。