！2010 Microsoft excl 的VBA中 Range.Find的使用方法

求助！2010 Microsoft excl 的VBA中 Range.Find的使用方法。
excl中的内容：

我想查找出最后一个单元格的位置（D11）返回给endrng

VBA代码：

Sub 查找最后一个单元格()
Dim endrng As Range
Set endrng = Worksheets("sheet1").Cells.Find("*", , xlFormulas, , , xlPrevious)
Application.Range([a1], endrng).Select
End Sub

在单步运行的过程：

再次按F8时出现：

请问这种情况怎么解决？菜鸟求助。谢谢！ VBA 2010 Range.Find Microsoft?office 微软
[解决办法]

application.Range("a1").End(xlDown).Select 

[解决办法]
find方法一般是查找特定值时候用的，找最后一个单元格的位置不必那么麻烦，除非你最后一个单元格有唯一的一个结束标记，才可行。
[解决办法]

引用:

Quote: 引用:

我想做的事情是，对于“D11”这个单元格不是固定的，有可能再加几行（例如：加一行，需要找出来的结果一定是：D12），即需要找到列表中右下角的那个单元格的地址，不是一楼的理解的那样的（找出的是A1列最后的一个单元格）。

呃~发散一下思维呗，楼上给出的方法都可以实现的。既然能找到A11那肯定就可以定位D11了。无论你插几行。

application.Range("a1").End(xlDown).End(xlToRight ).Select 
或
range(split(application.ActiveSheet.usedrange.address,":")(1)).Select

找使用区域的最后一个单元格的方法，无论你插行插列。
[解决办法]
为了10分，不惜画蛇添足，班门弄斧。
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select

查看更多 下一篇