Excelマクロ：選択したセルに通し番号を入れたい

任意のセルを選択している状態で、マクロの実行をすると左上から下へ、一番したへ来たら次の行の一番上から通し番号を入れるというマクロを作りたいのですが、どのようなコードを書けば良いのでしょうか？

No.1 ベストアンサー 回答者： kybo 回答日時： 2014/02/02 17:05

矩形範囲なら、以下でよろしいかと

Sub macro()
Dim X As Long, Y As Long, I As Integer
For Y = 1 To Selection.Columns.Count
For X = 1 To Selection.Rows.Count
I = I + 1
Selection.Cells(X, Y).Value = I
Next X
Next Y
End Sub

No.4 回答者： keithin 回答日時： 2014/02/02 22:27

まぁ１ずつ足しこんでっても大した手間じゃありませんが、折角なのでエクセルの機能でやらせてみると

sub macro1()
　with selection
　.cells(1) = 1
　.columns(1).dataseries rowcol:=xlcolumns, type:=xllinear, step:=1, trend:=false
　.dataseries rowcol:=xlrows, type:=xllinear, step:=.rows.count, trend:=false
　end with
end sub
ぐらいで。

No.3 回答者： kagakusuki 回答日時： 2014/02/02 22:16

　For～Nextの様な繰り返し処理を使う事無く、通し番号の入力を一括して済ませる方法です。

Sub Macro()

　　Selection.FormulaR1C1 = _
　　　　"=ROW()-" & Selection.Row & "+(COLUMN()-" & Selection.Column & ")*" & _
　　　　　Selection.Rows.Count & "+1"
　　Selection.Value = Selection.Value

End Sub

No.2 回答者： yukiosato 回答日時： 2014/02/02 21:06

マクロを作らなくてもできますが・・・添付画像を参照してください。