◆使用しているセルのアドレス・行・列番号 を調べる / 順番にアクセスする

  前ページでは選択されているセルのアドレス等を調べる方法を説明しました。
  使っているセルも同様に簡単に調べられます。


  方法は、UsedRange プロパティを使用します。

  下記のマクロを参照してください。

Sub Sample2()

    Dim RowCnt, ColCnt, StartRow, StartColumn As Integer
    Dim Max_Row, Max_Column, i As Integer
    Dim UsedCell As Range
    Dim UsedArea As String
    
    Set UsedCell = ActiveSheet.UsedRange
    
    UsedArea = UsedCell.Address
    
    StartRow = UsedCell.Cells(1).Row
    StartColumn = UsedCell.Cells(1).Column
    
    Max_Row = UsedCell.Cells(UsedCell.Count).Row
    Max_Column = UsedCell.Cells(UsedCell.Count).Column

End Sub

  また、使用してあるセルを順番にアクセスするには以下のようにします。

Sub Sample3()
    Dim UsedCell As Range
    Dim i As Integer
    
    Set UsedCell = ActiveSheet.UsedRange
    
    For i = 1 To UsedCell.Count

        UsedCell(i)="BB"
        
    Next
End Sub