Question

在作为订单表单的电子表格中，数据从第84行开始。从那里，可以有少至1行数据或多达数千行。此外，有时该数据中会有空行。

我的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方法？这模拟您选择底行并按ctrl +向上：

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

Excel - 选择范围直到5个空行

2 个答案: