Excel VBAでセルの位置を瞬時に特定！RowとColumnプロパティの効果的な使い方

Sub ExampleRowColumn()
    Dim myCell As Range
    Set myCell = Range("C5")

    ' 行番号と列番号を取得
    Dim rowNum As Integer
    Dim colNum As Integer
    rowNum = myCell.Row
    colNum = myCell.Column

    ' 結果の表示
    MsgBox "行番号: " & rowNum & ", 列番号: " & colNum
End Sub

Sub FindCellPosition()
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("B4") ' ターゲットとなるセルを指定

    ' 行番号と列番号を取得
    Dim rowNum As Integer
    Dim colNum As Integer
    rowNum = targetCell.Row
    colNum = targetCell.Column

    ' 結果の表示
    MsgBox "セル " & targetCell.Address & " の行番号: " & rowNum & "、列番号: " & colNum
End Sub

Sub FindMultipleCellPositions()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を指定

    Dim cellAddresses As Variant
    cellAddresses = Array("A1", "B2", "C3", "D4") ' 行と列の位置を知りたいセルのアドレス

    Dim i As Integer
    For i = LBound(cellAddresses) To UBound(cellAddresses)
        Dim cell As Range
        Set cell = ws.Range(cellAddresses(i))
        MsgBox "セル " & cell.Address & " の行番号: " & cell.Row & "、列番号: " & cell.Column
    Next i
End Sub