セルの値を取得して他のセルにひとつづつ配置したい
こんにちわ
VBS初心者です
A1セルに12～14ケタほどの英文字と数字が混在したコードがあります
それをB2,C2,D2,E2・・・・・セルに左から順にひとつづつ配置したいのですが、どうも上手く行きません
Sub test4()
Value = Range("A1")
Range("A2").Value = Mid("A1", 1, 1)
Range("B2").Value = Mid("A1", 2, 1)
Range("C2").Value = Mid("A1", 3, 1)
Range("D2").Value = Mid("A1", 4, 1)
Range("E2").Value = Mid("A1", 5, 1)
Range("F2").Value = Mid("A1", 6, 1)
Range("G2").Value = Mid("A1", 7, 1)
Range("H2").Value = Mid("A1", 8, 1)
Range("I2").Value = Mid("A1", 9, 1)
Range("J2").Value = Mid("A1", 10, 1)
Range("K2").Value = Mid("A1", 11, 1)
Range("L2").Value = Mid("A1", 12, 1)
Range("M2").Value = Mid("A1", 13, 1)
Range("N2").Value = Mid("A1", 14, 1)
End Sub
"A1"を値としてとらえているようで
B2にはAが、C2には1が入ってしまいます
A1の値を取り出すにはどうしたら良いでしょうか
よろしくお願いします
お礼
ありがとうございます。助かりました。感謝です。