VBA中单元格为空时如何跳过For循环的当前迭代？

现有写法的逻辑隐患 #

• 手动执行j = j + 1会和For循环自带的步长累加逻辑冲突：For循环每次迭代结束后会自动给j叠加默认步长1，判断分支内手动给j加1后，本轮循环结束j会再次被累加1，相当于直接跳过2个索引值，极易出现单元格漏处理的问题。
• 当j累加到循环终止值20时，手动加1会让j变为21，超出循环设定的终止边界，还可能触发数组、工作表对象的越界错误。

正确实现方案 #

VBA没有内置类C语言的continue关键字，要实现跳过当前轮次、直接进入下一轮循环的效果，有两种通用稳妥的写法：

写法1：反向判断包裹业务逻辑（最简洁推荐） #

直接判断单元格非空时才执行业务逻辑，空值场景不做任何操作，循环会自动完成j的累加进入下一轮，不会出现索引跳变问题：

For j = 1 To 20 'Number of Tail # Cells 注意：工作表行号从1开始，原写法j从0开始会读取不存在的第0行触发错误
    If Cells(j, 3) <> "" Then
        NewestEntry = Worksheets(Tail(j)).Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
    End If
Next j

写法2：GoTo跳转模拟continue逻辑（适合复杂判断场景） #

如果循环内判断条件多、逻辑分支复杂，可以在循环末尾设置标记位，命中空值条件时直接跳转到标记位，跳过后续所有逻辑进入下一轮：

For j = 1 To 20 'Number of Tail # Cells
    ' 空值时直接跳转到循环末尾标记
    If Cells(j, 3) = "" Then GoTo NextIteration
    
    ' 此处放置所有非空场景下要执行的业务逻辑
    NewestEntry = Worksheets(Tail(j)).Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count

NextIteration: ' 循环轮次结束标记
Next j

补充提示：调用SpecialCells(xlCellTypeConstants)时，如果对应A列没有常量内容会直接触发无匹配单元格的运行时错误，建议在调用前先加错误捕获判断，避免代码中断。

内容的提问来源于stack exchange，提问作者Beau