Excel-VBA 快速上手（八、单元格对象-常见的单元格操作）

一. 单元格的内容

1.1. 获取单元格的真实内容

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  Debug.Print rng.Value
End Sub

1.2. 获取单元格的显示内容

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  Debug.Print rng.Text
End Sub

1.3. 获取单元格使用的公式

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  Debug.Print rng.Formula
End Sub

1.4. 判断单元格是否为空

第一种方式：

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  If rng.Value = "" Then
    Debug.Print "单元格内容为空!"
  End If
End Sub

第二种方式：

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  If Len(rng.Value) = 0 Then
    Debug.Print "单元格内容为空!"
  End If
End Sub

第三种方式：

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  If VBA.IsEmpty(rng.Value) Then
    Debug.Print "单元格内容为空!"
  End If
End Sub

1.5. 判断单元格的内容是不是数字

第一种方式：这种方式，必须同时判断单元格内容不为空，因为单元格内容为空 IsNumeric 也会认为是数字

Public Sub main()
  Dim rng As Range
  Set rng = Range("A1")
  If VBA.IsNumeric(rng.Value) And rng.Value <> "" Then
    Debug.Print "单元格内容是数字!"
  End If
End Sub

第二种方式：

Public Sub main()
  Dim rng As Range
  Set rng = Range