因此,我尝试使用 VBA 迭代 Excel 电子表格中的工作表。我想遍历每一行,然后遍历每一列,尽管进行了谷歌搜索,但我实际上无法找到一种直观的方法来做到这一点。
我假设必须填充一行的第一个单元格,如果没有,那么那一定是结束。我可以强制执行这个
我当前的方法是迭代行,然后尝试获取第一个单元格的值,但我无法弄清楚。我在这里和其他地方遇到了一些使用范围等的问题,但没有任何东西可以帮助我编写代码。
目前的做法是:
Set sh = ActiveSheet
RowCount = 0
For Each rw In sh.Rows
'If Row.Cells(1, 1).Value = "" Then Exit For
RowCount = RowCount + 1
Next rw
MsgBox (RowCount)
现在,当我运行这个程序时,我得到了一些巨大的数字,这是错误的,因为该表只有大约 25 行。我评论了第一行,因为它不起作用。
当 For 循环中发现第一个单元格为空的行时,我可以在 For 循环的第一行中更改什么才能正确中断?
为了让任何搜索类似内容的人受益,请参阅工作表.UsedRange
,
e.g. ? ActiveSheet.UsedRange.Rows.Count
和循环,例如
For Each loopRow in Sheets(1).UsedRange.Rows: Print loopRow.Row: Next
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)