0

我试图弄清楚如何使用 VBA 在 Excel 版本 2003、2007、2010 中执行以下操作(希望它们都相同): 搜索列 A 中的最后一个单元格,其中包含一个恒定值。从上面的搜索中选择 A2:I2 中包含最后一个常量数据值的行的所有数据。

例如,如果 A 列中具有常量数据的最后一行是 A13,那么我想选择 A2:I2 到 A13:I13。

4

1 回答 1

0

编辑

现在'lastRow' 将在 A 列中找到最后使用的单元格,即使上面有空白。这假设方程式在您的评论建议的其他列中。

Sub SelectRange()
  lastRow = Cells(Rows.Count, "A").End(xlUp).Row

  Range("A2:I" & lastRow).Select
End Sub

有关如何在不同版本的 excel 中查找最后一个单元格的信息,请参阅这篇文章。


假设您确实必须评估 A 列中的单元格的公式与常量,您可以使用 HasFormula 方法,如下所示:

Sub SelectRange()
  lastRow = Cells(Rows.Count, "A").End(xlUp).Row

  Do While Range("A" & lastRow).HasFormula <> False
    lastRow = Cells(lastRow - 1, "A").End(xlUp).Row
  Loop

  Range("A2:I" & lastRow).Select
End Sub
于 2013-09-17T21:58:18.700 回答