VBA FOR EACH 如何判断是否最后一个数据？

qd191280457

如果不使用计数的方式，有没有那个命令能判断？

我想用于工作表循环，如果已经到了最后一个表，还没找到表名，就把判断标记改为FALSE

LearnVBA111

range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).address

for each 如果跟着一个区域范围，那么可以用区域范围的specialcells 选取lastcell找到最后一个单元格

qd191280457

LearnVBA111 发表于 2020-9-22 10:41
range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).address

for each 如果跟着一个区域范围 ...

汗，忘记说明了，我想循环的是所有工作表

LearnVBA111

qd191280457 发表于 2020-9-22 10:46
汗，忘记说明了，我想循环的是所有工作表

那你要统计的最后一个数据到底是单元格还是sheet

qd191280457

LearnVBA111 发表于 2020-9-22 10:47
那你要统计的最后一个数据到底是单元格还是sheet

sheet
字数补丁

LearnVBA111

qd191280457 发表于 2020-9-22 10:50
sheet
字数补丁

不大明白了,Sheets(Sheets.count)不知道是不是你要的。

LearnVBA111

qd191280457 发表于 2020-9-22 10:50
sheet
字数补丁

Sheets(sheets.count）不知道是不是你要的

jiangxiaoyun

for each 遍历的一般是 集合，集合有多大就多大。遍历过程中计数一下就行了。

Datous

1. Sub TestSheet()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Worksheets
   
4.         If sht.Index = Worksheets.Count Then Debug.Print "The Last: " & sht.Name
   
5.     Next
   
6. End Sub

复制代码

qd191280457

Datous 发表于 2020-9-22 11:43

就是这种了，原来可以使用index来解决