excel - Excelで選択した行を繰り返すにはどうすればよいですか？

Question

    For Each r In Selection.Rows
        For Each c In r
            sum = sum + 1
        Next c
    Next r

行数はカウントしますが、セルはカウントしません

    For Each r In Selection.Rows
        For Each c In r
            msgbox "val = " & c.Value
        Next c
    Next r

「タイプの不一致」で失敗します。何が落ちたの？選択オブジェクトのマニュアルはどこにありますか？

score 3 · Accepted Answer

何を繰り返したいかを明確にしていないためFor Each c in r、複数のセル範囲を返しています。

時計の窓を壊してSum = ...見ると、これを見ることができc.Addressます。

修正するには、これを試してください

Dim c As Range, r As Range
Dim Sum As Long
For Each r In Selection.Rows
    For Each c In r.Cells
        Sum = Sum + 1
    Next c
Next r

またはこれでも

Dim c As Range
Dim Sum As Long
For Each c In Selection.Cells
    Sum = Sum + 1
Next c

1 に答える 1