練習問題8（表示形式の練習）メモ

excel-ubara.com

Sub 8()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
Next
  Columns(1).NumberFormatLocal = "yyyy/mm/dd"
  Columns(4).NumberFormatLocal = "#,##0"
End Sub