从Autocad VBA中查找空单元格

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

Sub TestFormatACell()
Dim aCell As Range, bCell As Range
Set aCell = ActiveSheet.Range("A1")
Set bCell = Worksheets(3).Cells(1, 2)
aCell.Select
With ActiveCell
.Font.Bold = True
.Font.Italic = True
.Font.Color = RGB(255, 0, 0)
.NumberFormat = "0.0000000"
End With
bCell.Select
With ActiveCell
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlLeft
.Font.Bold = False
.Font.Italic = False
.Font.Color = RGB(0, 255, 0)
.NumberFormat = "$#,##0.00"
End With
End Sub

.NumberFormat = "@" '' text format

.NumberFormat = "General" '' general format