Sub test01()
For i = 1 To 10
m = Mid(Cells(i, "A"), 1, 2)
n = StrConv(m, 8)
Cells(i, "B") = Val(n)
Cells(i, "C") = Mid(Cells(i, "A"), 1, 2)
Next i
End Sub
・For文の10は勝手に決めてますが、最終行を自動で取る方法もあります。
・B列、C列の書式をそれぞれ、数値、文字列にしておくこと。勿論VBAで設定も出来ます。
・MidはLeft関数でもできます。
お礼
いつもありがとうございます。 一気に問題が解決しました。 大変助かりました。 どうもありがとうございました。