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

Question

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

标签： vbaexcel

Answer 1

遗憾的是，其中的第一个单元格UsedRange实际上可能没有被使用。例如：

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

然而：

其中不使用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