方法“对象_Worksheet的范围，错误：1004”

Dim CatSh As Worksheet Dim Cat(1 To 9) As Range Set CatSh = Worksheets("Categories") For i = LBound(Cat) To UBound(Cat) Set Cat(i) = CatSh.Range(CatSh.Range(CatSh.Cells(2, i)),CatSh.Range(CatSh.Cells(2, i)).End(xlDown)) Next i 

这个简单的代码在第五行崩溃。 我尝试了CatSh.Range的几个组合，没有工作。 每次都是一样的错误。 我渴望一个解决scheme。

Answer 1

将该行更改为：

 Set Cat(i) = CatSh.Range(CatSh.Cells(2, i),CatSh.Cells(2, i).End(xlDown)) 

一个单元格的范围不起作用，而且是多余的。