如何在VBA中动态查找excel工作表中使用的第一个单元格？

遗憾的是，

UsedRange

中的第一个单元格可能没有实际使用。例如：

info.Worksheets("sheet1").UsedRange().Select
    ActiveCell.SpecialCells(xlFirstCell).Select

然而：

其中，B2未使用。最好使用：

Sub ExamineUsedrange1()
    MsgBox ActiveSheet.UsedRange.Address(0, 0)
End Sub

---

这对我不起作用。如何找到它？

工作表（“Sheet1”）。使用drange.Cells（1）。选择

即使B2没有值，也可以看到Excel如何保持B2的使用状态。你的答案很好，你获得第一个真正使用的单元格的方法非常有用。谢谢分享

Sub ExamineUsedrange2()
    Dim r As Range
    Set r = Cells.Find(What:="*", _
                    After:=Cells(Rows.Count, Columns.Count), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
    MsgBox r.Address(0, 0)
End Sub