循环遍历工作表并尝试计算列中的数据

时间:2015-11-03 21:55:40

标签: excel vba

我有一张十张的工作簿。在表1中,我想列出工作表名称(工作表3到10),工作表中的列标题值(仅限列8和更高)以及该列中包含数据的单元格数。

我的代码适用于这三个要求中的两个。在我的工作表1上(名为:SheetName列),我在列B中的A列和列标题中获得了工作表名称,但是没有任何运气获得该工作表/列的数据行数。

在我的工作表1上,A列在该工作表上的第7列之后每列数重复,这很好。

vector<int>::const_iterator

1 个答案:

答案 0 :(得分:1)

这是因为您使用了Set myRange...您不需要.Select它。只需将该行更改为Set myRange = ws.Columns(i)

即可

如果你想离开.Select,那么下一行应该是 NumRows = ws.application.worksheetfunction.counta(selection),但高度推荐给您avoid using .Select,这仅供您参考。