選択した範囲の各行をループする以下のコードがあります。ただし、1 つのセルのみが選択されている場合、コードは 1 つのインスタンスだけを処理するのではなく、ワークシートの各行をループします。
1 つのセルが選択されたときに for ループが 1 つの行のみを処理するようにするには、どうすればよいですか?
Dim myRange as Range
Dim currRow as Range
Set myRange = Selection
For Each currRow In myRange.Rows.SpecialCells(xlCellTypeVisible)
MsgBox currRow.Address
Next currRow
ありがとう、