セル内の文字を区切りたい

Question

下記のような場合、コロンか半角スペース区切るのが良いかと思いますが
どうコードを書いたら良いか分かりません。
Sheet1のA列にこのような値が連なっております。
Sheet2のA列とB列に分けたいです。

6907789017280 : 設定

Answer 1

" : " で区切るという手があります。

Sub sample()
    Dim moto As Worksheet, saki As Worksheet
    Set moto = Worksheets("Sheet1")
    Set saki = Worksheets("Sheet2")
    
    Dim i
    For i = 1 To moto.Range("A" & moto.Rows.Count).End(xlUp).Row
        saki.Range("A" & i).Resize(, 2).Value = Split(moto.Range("A" & i).Value, " : ")
    Next
End Sub

Comments

[dmg]

jinoji様、いつもありがとうございます。
今回も提供いただいたコードですぐに動きました。
本当にありがとうございます！