0426蟻人間 ◆T6xkBnTXz7B0
2020/05/31(日) 17:39:48.04ID:w6MuXuh+Excel for Windows 95で動作確認。
Sub Record1()
Application.Worksheets(1).Select
For I = 5 To 20
For J = 1 To 20
Cells(J, I).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) * 1.1
Next J
Next
End Sub