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

Question

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

这个简单的代码在第5行崩溃了。我尝试了几种CatSh.Range组合，但都没有。每次都有相同的错误。我迫切需要一个解决方案。

Answer 1

将该行更改为：

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

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