VBAでのゼロパディングのままでコピーしたい

Question

000123など頭に0が付いたものをカウントしてコピーする中で、ゼロパディングが消えてしまうのを解消したい。

先に貼り付け先のシートを文字列にしておいて、書き込んだ際に消えないようにしているが、代入する段階で消えてしまいます。これを回避するにはどうすれば宜しいでしょうか？

wkが

Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.name = ("Sheet2")
With Intersect(ActiveSheet.UsedRange, Columns("A"))
    .NumberFormat = "@"
    .Value = .Value
End With
 
'得意先コードの転記と行数の集計
Dim i As Long, db, wk, db1, wk1
Set db = CreateObject("Scripting.Dictionary")
Set db1 = CreateObject("Scripting.Dictionary")
With Sheets("sheet1")
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
    wk = .Cells(i, "B")
    db(wk) = db(wk) + .Cells(i, "B")
    wk1 = .Cells(i, "A")
    db1(wk1) = db1(wk1) + .Cells(i, "A")
    Debug.Print (wk & "  " & "    " & wk1 & "   ")
Next
    Worksheets("Sheet2").Cells(1, "A").Resize(db.Count) = Application.Transpose(db.Keys)

イミディエイト（ログ）

出金支払先コード      支払通知番号   
000892      739119000309   
000892      739119000309   
000892      739119000309   
000892      739119000309   
000892      739119000309   
000892      739119000309   
004050      739119000310   
004050      739119000310   
004050      739119000310   
004050      739119000310   
004050      739119000310   
004050      739119000310   
004050      739119000310   

代入結果(Sheet2)

出金支払先コード
892
4050
コード

Comments

[Y.H.]

wk,wk1の型をVariantではなくStringにするとどうなりますか？

[kingkamehameha]

Y.Hさん
回答有難う御座います。
Dim i As Long, db, db1, wk, wk1の部分ですよね、String型にするとエラーが出てしまいます。オブジェクト型ではないと。

[Y.H.]

cells()はRangeオブジェクトを返します。Excelのセルに表示している文字列を取得したいので
wk = .Cells(i, "B").Text
wk1 = .Cells(i, "A").Text
にしてみてください。

・・・結局最後の行実行時に頭の0が消えてしまうかもしれませんが・・・

[kingkamehameha]

Y.Hさん
.Textを加えたモノで実行してみましたが、やはり0が消えてしまいます。Transposeで代入する前と後でセルの書式が、文字列→標準に切り替わっているのも気になります。

[Y.H.]

最終手段で"'"つけてしまいます。
要件満たせるでしょうか・・・
wk = ”’” & .Cells(i, "B").Value
wk1 = ”’” & .Cells(i, "A").Value

[kingkamehameha]

Y.H.さん
ありがとうございます、無事要望を満たすことができました。

Answer 1

Sheet2の書式設定がA1だけしか設定されてません。A列全てを文字列にする必要があります。
以下のようにしてください。

    Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
            .Name = ("Sheet2")
    With Sheets("Sheet2")
        Columns("A:A").Select
        Selection.NumberFormatLocal = "@"
    End With

Answer 2

勘で回答します。

db(wk) = db(wk) + .Cells(i, "B")

ここで足し算をしているので、ハッシュに入る値は数値に変換されていると思います。
つまりデバッグ文で出しているのとハッシュに入っているものは別物です。

ここの処理は具体的に何がしたいのでしょうか？
B列の値をキーにB列の値をどんどん足しこんでいくのですか？
単純に代入したいのであれば、db(wk) = wkでいいような気がします。