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

 

 

 

 

 

posted @ 2012-07-12 23:01  NikeyL  阅读(278)  评论(0)  编辑  收藏  举报