Range.Cells 属性 和 Range.Item 属性，有区别吗？ [

本帖最后由 爱疯 于 2013-7-13 11:07 编辑

'Range.Cells 属性
Sub test1()
    Dim Rng As Range

    '一个单元格
    Set Rng = Range("D6")
    Debug.Print Rng.Cells(-1).Address(0, 0)             '返回 D4
    Debug.Print Rng.Cells(0).Address(0, 0)              '返回 D5
    Debug.Print Rng.Cells(1).Address(0, 0)              '返回 D6
    Debug.Print Rng.Cells(-1, -1).Address(0, 0)         '返回 B4
    Debug.Print Rng.Cells(0, 0).Address(0, 0)           '返回 C5
    Debug.Print Rng.Cells(1, 1).Address(0, 0)           '返回 D6
    Debug.Print "------"
    '单元格区域
    Set Rng = Range("D6:F10")
    Debug.Print Rng.Cells(-1).Address(0, 0)             '返回 B6
    Debug.Print Rng.Cells(0).Address(0, 0)              '返回 C6
    Debug.Print Rng.Cells(1).Address(0, 0)              '返回 D6
    Debug.Print Rng.Cells(-1, -1).Address(0, 0)         '返回 B4
    Debug.Print Rng.Cells(0, 0).Address(0, 0)           '返回 C5
    Debug.Print Rng.Cells(1, 1).Address(0, 0)           '返回 D6

End Sub





'Range.Item 属性
Sub test2()
    Dim Rng As Range

    '一个单元格
    Set Rng = Range("D6")
    Debug.Print Rng.Item(-1).Address(0, 0)              '返回 D4
    Debug.Print Rng.Item(0).Address(0, 0)               '返回 D5
    Debug.Print Rng.Item(1).Address(0, 0)               '返回 D6
    Debug.Print Rng.Item(-1, -1).Address(0, 0)          '返回 B4
    Debug.Print Rng.Item(0, 0).Address(0, 0)            '返回 C5
    Debug.Print Rng.Item(1, 1).Address(0, 0)            '返回 D6
    Debug.Print "------"
    '单元格区域
    Set Rng = Range("D6:F10")
    Debug.Print Rng.Item(-1).Address(0, 0)              '返回 B6
    Debug.Print Rng.Item(0).Address(0, 0)               '返回 C6
    Debug.Print Rng.Item(1).Address(0, 0)               '返回 D6
    Debug.Print Rng.Item(-1, -1).Address(0, 0)          '返回 B4
    Debug.Print Rng.Item(0, 0).Address(0, 0)            '返回 C5
    Debug.Print Rng.Item(1, 1).Address(0, 0)            '返回 D6

End Sub





test1和test2，除颜色处不同，其它都一样。
因此，如题。谢谢！