vba基本操作 -- 单元格操作

• 获取单元格中的内容

Sub GetCellValue()
    Dim cell_A1 As String, cell_B1 As String
    cell_A1 = ActiveSheet.Range("A1").Value
    cell_B1 = ActiveSheet.Range("B1").Value
    Debug.Print cell_A1
    Debug.Print cell_B1
End Sub