Excel – select范围直到5空行

在作为订单forms工作的电子表格上，数据从第84行开始。从那里开始，可能只有一行数据或多达数千行数据。 另外，有时在这些数据中会有空行。

在我的VBA代码中有很多像这样的语句的例子：

Range("A84:X1000").Select 

问题是，有时候这个范围远远低于需要的范围，而其他时间还不够。 有没有办法在特定的单元格（在这种情况下是A84）开始一个范围的开始，并且在达到5个空行之后才结束？

举个例子，当我需要使用它时，这里有一点VBA代码。

 Sub FixNumbers() Range("D84:D1000").Select Dim c As Range Selection.NumberFormat = "General" For Each c In Selection.Cells If (c > 99) And (c Mod 50) = 0 Then c = c + 1 Next End Sub 

Answer 1

考虑以前的回答者的想法：

 Sub FixNumbers() with Range("D84:D" & rows.count) Dim c As Range .NumberFormat = "General" For Each c In .Cells If (c > 99) And (c Mod 50) = 0 Then c = c + 1 Next end with End Sub 

Answer 2

为什么不使用xlUp方法？ 这模拟你select最后一行，并按下Ctrl +向上：

 Set rngOppos = Sheets("Sheet1").Range("X84", Sheets("sheet1").Range("X" & rows.count).End(xlUp))