For循环j从单元格(A:A)中取出。如果单元格是空白的,我想跳过循环。
我在j中尝试了if then
语句。如果单元格为空(")跳过循环并进入下一个j循环。
For j = 0 To 20 'Number of Tail # Cells
If Cells(j, 3) = "" Then
j = j + 1
Else
NewestEntry = Worksheets(Tail(j)).Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
End If
不要增加循环计数器。只需将逻辑设置为非空白。
For j = ...
If Cells(j, 3).Value2 <> vbNullString Then
'...
End If
Next
注意单元格引用从1开始,而不是0