セルの値を取得して他のセルにひとつづつ配置したい

こんにちわ

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の値を取り出すにはどうしたら良いでしょうか

よろしくお願いします

No.1 回答者： temtecomai2 回答日時： 2009/06/09 01:21

まず、VBScript ですか？ Excel VBA ですか？

Mid("A1", 1, 1)
これは
Mid(Range("A1").Value, 1, 1)
と。

気になる点としては
Value = Range("A1")
変数名として Value は変えたほうがいい。
Range("A1") てのも他にあわせて Range("A1").Value としたほうが良い。

この回答へのお礼

出来ました！！
ありがとうございました。
恥ずかしい事にvbsとvbaの違いもわからず使わせていただいています。
納期が先にあり、検索だけを頼りにするなんて言語道断ですよね。
悲しい現実です。
本当に助かりました
ありがとうございました

お礼日時：2009/06/10 22:26