EXCELのマクロにて、ゼロパティングをしたい

A列とＢ列に3バイトと4バイトの数字がずらっとはいっています。
A列の数値はA2からB列の数値はB2から入っています。、

Ａ列には1ケタから３ケタまでの数が入り、桁数が足りない場合はゼロパティングします。
Ｂ列同じです。


やりたいことは、Ａ列とＢ列の値を縦のセルごとに最終レコードまで結合していきたいのです。

これをVBAでやりたいのです。



入力値によって０の個数が変わる場合の処理がどうしても思い浮かびません。

どなたか知恵を貸していただきたいです。

過去ログに似たようなものがあったのですが、なかなか考えられませんでした。

No.1 回答者： tabasuko_otoko 回答日時： 2011/04/04 15:31

セルの書式設定で「００＃」とすればゼロパティングはできますが、これとは違うんでしょうか？

＞やりたいことは、Ａ列とＢ列の値を縦のセルごとに最終レコードまで結合していきたいのです。

足すんじゃなくて結合？
「００４」と「０３６」があったとしたら「００４０３６」という形ですか？

No.2 回答者： mu2011 回答日時： 2011/04/04 15:58

一例です。

A列をD1、B列をD2に文字列結合してみました。

Sub sample()
Dim wk()
For i = 1 To 2
ReDim wk(Cells(Rows.Count, i).End(xlUp).Row - 1)
For j = 2 To Cells(Rows.Count, i).End(xlUp).Row
wk(j - 2) = Format(Cells(j, i), "000")
Next
With Cells(i, 4)
.NumberFormat = "@"
.Value = Join(wk, "")
End With
Next
End Sub