如何迭代Excel中选定的行？

Question

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

计数行NUM而不是细胞

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

失败， '类型不匹配'。什么下降？ Selection对象手册在哪里？

Answer 1

因为您没有明确说明您想要进行的操作，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