|
おはようございます。
口座番号等でA列の数値を各セルに分けたいのですが、下記数式で分けようとしました。桁数は7桁を予定していますが、桁数が少ない場合前に0が表示されてしまいます。これを空白にしたいのですが。
また、過去ログからマクロも探して見ましたが、私には桁を合わせることが出来ません。宜しくお願いします。
A列 C D E F G H I列
1234567 1 2 3 4 5 6 7
1234 0 0 0 1 2 3 4
12345 0 0 1 2 3 4 5
[=INT(MOD(SIGN(A2)*A2/1,10))
Dim st As String, st1 As String
Sheets("Sheet1").Select
Range("A1").Select
For s = 1 To 10
st = ActiveCell.Offset(1, 0).Value
st1 = StrConv(st, vbNarrow)
For I = 1 To Len(st1)
Cells(s + 1, I + 2).Value = StrConv(Mid(st1, I, 1), vbWide)
Next I
ActiveCell.Offset(1, 0).Select
Next s
|
|