如何定义range，并引用它？

小小三毛

Sub 查找44()

Dim MyRange1 As Range

Sheet1.Activate

  Set MyRange1 = Worksheets("Sheet1").Range(Cells(1, 1), Cells(13, 1))

       Range(MyRange1).Select         

         Selection.Copy

          Range("H1").Select

           ActiveSheet.Paste

End Sub

我定义的MyRange1 这个range，在引用它的时候 不起作用，即：Range(MyRange1).Select    没反应，还出错 ，显示

www.hwz8989.com

hfwufanhf2006

把  Range(MyRange1).Select 改一下：
MyRange1.Select
就可以了；

复制粘贴其实也没必要这么麻烦，写成下面的样子就行了：
源区域.copy 目的地左上角单元格
因此，你这个例子可以简化成：
Sheet1.Activate
Range(Cells(1, 1), Cells(13, 1)).Copy Range("H1")

爱疯

Sub 查找44()
    Dim MyRangeAddress As String
    Sheet1.Activate
    MyRangeAddress = Range(Cells(1, 1), Cells(13, 1)).Address
    Range(MyRangeAddress).Select
End Sub






不可以是，Range(对象变量).Select
可以是，Range(字符串变量).Select