Sub 練習用数表()
NR = Selection.Rows.Count
NC = Selection.Columns.Count
AR = ActiveCell.Row
AC = ActiveCell.Column
For J = 1 To NC
For I = 1 To NR
Sheets("Sheet1").Cells(I + AR - 1, J + AC - 1).Value = I + 0.1 * J
Next I
Next J
End Sub








