[已解决]错误1004

meijuncheng

Sub inventory1()
Dim InR As Long
Dim x As Long
Intersect(ActiveSheet.UsedRange, [E4:E65536]).SpecialCells(4).Delete 3
lngR = Range("A65536").End(xlUp).Row
x = ActiveSheet.[IV1].End(xlToLeft).Column
For j = 1 To x
If InStr(Cells(1, x), "CXST Cat") > 0 Then
x1 = x
End If
If InStr(Cells(1, x), "CXST SubCat") > 0 Then
x2 = x
End If
Next j
程序运行到lngR = Range("A65536").End(xlUp).Row就发生错误1004 求大神帮忙啊

最佳答案

月排行榜 / 总排行榜

suye1010

2012-8-7 16:26

Intersect(ActiveSheet.UsedRange, [E1:E65536]).SpecialCells(4).Delete 3
这句代码有问题，如果你的Intersect函数不能返回有效区域，也就是Intersect(ActiveSheet.UsedRange, [E1:E65536])为Nothing的情况下就会报错1004

为了避免出现这样的问题，
可以这么写
If not Intersect(ActiveSheet.UsedRange, [E1:E65536]) is nothing then Intersect(ActiveSheet.UsedRange, [E1:E65536]).SpecialCells(4).Delete 3

跳转到最佳答案楼层

suye1010

Intersect(ActiveSheet.UsedRange, [E1:E65536]).SpecialCells(4).Delete 3
这句代码有问题，如果你的Intersect函数不能返回有效区域，也就是Intersect(ActiveSheet.UsedRange, [E1:E65536])为Nothing的情况下就会报错1004

为了避免出现这样的问题，
可以这么写
If not Intersect(ActiveSheet.UsedRange, [E1:E65536]) is nothing then Intersect(ActiveSheet.UsedRange, [E1:E65536]).SpecialCells(4).Delete 3