excel - 工作表中最后使用的单元格

Question

我是新来的，我希望使用 Excel VBA 返回工作表中最后使用的单元格。

我查看了 Error in finding last used cell in Excel with VBA )但这并没有解决我遇到的两个问题:

1. .Cells.Find(...).Row 方法在我的代码中花费的时间太长。

2. 我的“最后使用的单元格”的含义可能很奇怪......单元格可以为空白。我想获取具有最后使用的单元格的列，并将其与具有最后使用的单元格的行配对。

解释一下:假设工作表除了 A1:C3、D2 和 B4 中的数据外都是空的。 (Exhibit 1)

我感兴趣的最后一个单元格是 D4，因为我想要工作表中的最后一个单元格包含工作表中的所有数据。

现在我已经解释了我要寻找的内容，任何人都可以提供相关建议

• 如何使 cells.find 运行得更快或
• 另一种在工作表中查找“最后一个单元格”的可靠方法？

谢谢!

Answer 1

你尝试过这个吗？

Dim r As Range
Set r = Sheet1.UsedRange.SpecialCells(xlCellTypeLastCell)
Debug.Print r.Address

示例的输出:

$D$4

众所周知，UsedRange 并不总是与实际使用的数据范围匹配。一些解决方法是使用 CurrentRegion:

Dim r As Range
With Sheet1.Range("A1").CurrentRegion
    Set r = Sheet1.Cells(.Rows.count, .Columns.count)
End With
Debug.Print r.Address

此外，如果数据不是从 A1 开始，可能是这样:

With Sheet1.Cells.Find("*").CurrentRegion