从Autocad VBA中查找空单元

Sub FindLastCell()
  Dim LastCell As Range
  With ActiveSheet
    Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
    If IsEmpty(LastCell) Then
      'do nothing
    Else
      Set LastCell = LastCell.Offset(1, 0)
    End If
  End With
  MsgBox LastCell.Row
End Sub

Public Function GetLastRow() As Long
Dim wks As Excel.worksheet
Const BottomRowNum = 65536
    Set wks = objExcel.ActiveSheet
    Dim i As Long
    For i = 1 To BottomRowNum
        If IsEmpty(wks.Cells(i, 2)) Then
            GetLastRow = i - 1
            Exit Function
        End If
    Next
    GetLastRow = BottomRowNum
End Function

Option Explicit
'' ~~~~~~~~~~~~~~~~''
Function FindLastRow()
  Dim LastRow As Range
  
  With ActiveSheet
    Set LastRow = .Cells.SpecialCells(xlCellTypeLastCell)
        LastRow.Activate
  End With
  FindLastRow = LastRow.Row
End Function
'' ~~~~~~~~~~~~~~~~''
Function FindLastColumn() As Long
  Dim LastColumn As Range
  
  With ActiveSheet
    Set LastColumn = .Cells.SpecialCells(xlCellTypeLastCell)
        LastColumn.Activate
  End With
  FindLastColumn = LastColumn.Column
  
End Function
'' ~~~~~~~~~~~~~~~~''
Sub FindLastCell()
  Dim LastCell As Range
  With ActiveSheet
  Set LastCell = .Cells(FindLastRow, FindLastColumn)
  End With
  LastCell.Activate
  MsgBox "Last Cell Address: " & vbCr & LastCell.Address
  
End Sub

.NumberFormat = "@" '' text format

.NumberFormat = "General" '' general format