3回目のタイトル変更: VBA 選択したセルに1から順に番号を入れる

2010年3月29日月曜日

Sub 選択したセルに1から順に番号を入れる()
    Count = 1
    For Each buf In Selection.Cells
        buf.Value = Count
        Count = Count + 1
    Next
End Sub