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

質問

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

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

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

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

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

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

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

回答No.2

mu2011

一例です。
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

回答No.1

tabasuko_otoko

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

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

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