Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26880 / 76732 ←次へ | 前へ→

【55178】数値を各セルに分ける
質問  koshimizu  - 08/4/21(月) 9:32 -

引用なし
パスワード
   おはようございます。
口座番号等で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
2 hits

【55178】数値を各セルに分ける koshimizu 08/4/21(月) 9:32 質問
【55179】Re:数値を各セルに分ける VBWASURETA 08/4/21(月) 10:10 発言
【55180】Re:数値を各セルに分ける VBWASURETA 08/4/21(月) 10:21 発言
【55181】Re:数値を各セルに分ける koshimizu 08/4/21(月) 10:38 質問
【55182】Re:数値を各セルに分ける VBWASURETA 08/4/21(月) 10:55 発言
【55183】Re:数値を各セルに分ける Yuki 08/4/21(月) 14:28 発言
【55184】Re:数値を各セルに分ける koshimizu 08/4/21(月) 16:45 お礼

26880 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free