Sub 表示3桁()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
' 対象となるシートを設定する
Set ws = ThisWorkbook.Sheets("Sheet2") ' シート名を適宜変更
' B列とD列の最終行を取得する
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
' B列の数値を三桁の文字列にフォーマットする
For i = 1 To lastRow
If IsNumeric(ws.Cells(i, "B").Value) Then
ws.Cells(i, "B").NumberFormat = "@"
ws.Cells(i, "B").Value = Format(ws.Cells(i, "B").Value, "000")
End If
Next i
' D列の数値を三桁の文字列にフォーマットする
For i = 1 To lastRow
If IsNumeric(ws.Cells(i, "D").Value) Then
ws.Cells(i, "D").NumberFormat = "@"
ws.Cells(i, "D").Value = Format(ws.Cells(i, "D").Value, "000")
End If
Next i
End Sub
表示3桁
