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