【ExcelVBA】特定列の数値の桁数を書式変更で調整したい

ExcelVBA,セルの操作

テスト対象のテーブル



テスト対象テーブルを使いたい場合は、↓テーブルをコピーしてエクセルの A1 に貼り付けてください。



商品名個数
りんご4
みかん3
めろん5
いちご2
みかん1

B列の数値を書式変更で5桁表示にする例

Sub Sample()

With ThisWorkbook.ActiveSheet
  .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).NumberFormatLocal = "00000"
End With
    
End Sub

結果


実行前のテーブル