Excel 方法“；对象范围“工作表，错误：1004”；

这个简单的代码在第5行崩溃。我试过几种猫叫声的组合，但都不起作用。每次都是同样的错误。我迫切需要一个解决办法

将该行更改为：

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

一个单元格的范围无效，并且是冗余的。

将该行更改为：

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

---

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

@ViktorZafirovski很高兴它起作用了。请单击答案旁边的绿色复选标记，将其标记为正确。这是只有你才能做的事。这将结束问题的回答。上帝，谢谢你。我一直在寻找那个选择，后来放弃了。我想给你最好的答案。好了。：）@维克托扎菲罗夫斯基很高兴它奏效了。请单击答案旁边的绿色复选标记，将其标记为正确。这是只有你才能做的事。这将结束问题的回答。上帝，谢谢你。我一直在寻找那个选择，后来放弃了。我想给你最好的答案。好了。：）