初次接触Object对象变量

Object 变量存储为 32 位（4 个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object 的变量可以赋值为任何对象的引用。

第一次注意到还有个数据类型,帮助文件里只有上面这一段话,但其利用Set语句话出卖了它,说明其为对象变量,可以引用Excel中的任何对象.

下面是一段测试代码:

Sub 测试Object对象变量()
    '第1次遇到Object变量,以前从没用过
    '下面的代码用来测试其可以做什么!!
    'Object对象变量用来引用Excel中的任何对象!!
    Dim objMy As Object
    Set objMy = Sheets(2)
    Debug.Print objMy.Range("A1").Value
    objMy.Range("A1:B3").Value = "123456"
    Sheets(2).Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(Sheets(2).Range("a65536").End(xlUp).Row, Sheets(2).Range("IV1").End(xlToLeft).Column)).Value = "谢晖"
    With objMy
        .Range(.Cells(1, 1), .Cells(.Range("a65536").End(xlUp).Row, .Range("IV1").End(xlToLeft).Column)).Value = "谢同欣"
    End With
    '竟然可以赋值,而且即使目标工作表不激活也可以.
End Sub