Question

我有一个Excel VBA宏，我每周运行一次。我有一段代码可以过滤掉不同的数据，然后将剩余的单元格复制到另一个工作表

以下是受影响代码的部分：

dim data as worksheet
dim sku vp as worksheet
Set skuvp = Workbooks("weekly Brand snapshot report.xlsx").Sheets("SKU VP")
set data = Workbooks("weekly Brand snapshot report.xlsx").Sheets("SKU Data")

data.Range("A1").AutoFilter Field:=4, Criteria1:="Foods", Operator:=xlFilterValues
data.Range("Onsales[[Product]]").SpecialCells(xlCellTypeVisible).Copy Destination:=skuvp.Range("B2")
skuvp.Range("foods").Sort key1:=skuvp.Range("C1"), order1:=xlDescending, Header:=xlYes
data.ShowAllData

data.Range("A1").AutoFilter Field:=4, Criteria1:="Treats", Operator:=xlFilterValues
data.Range("Onsales[[Product]]").SpecialCells(xlCellTypeVisible).Copy Destination:=skuvp.Range("H2")
skuvp.Range("treats").Sort key1:=skuvp.Range("I1"), order1:=xlDescending, Header:=xlYes
data.ShowAllData

data.Range("A1").AutoFilter Field:=3, Criteria1:="Hardgoods", Operator:=xlFilterValues
data.Range("B2:B16354").SpecialCells(xlCellTypeVisible).Copy Destination:=skuvp.Range("N2")
skuvp.Range("hard").Sort key1:=skuvp.Range("O1"), order1:=xlDescending, Header:=xlYes
data.ShowAllData

data.Range("A1").AutoFilter Field:=3, Criteria1:="Specialty", Operator:=xlFilterValues
data.Range("B2:B16354").SpecialCells(xlCellTypeVisible).Copy Destination:=skuvp.Range("T2")
skuvp.Range("spcl").Sort key1:=skuvp.Range("U1"), order1:=xlDescending, Header:=xlYes
data.ShowAllData

将数据和skuvp设置为工作表。

这个代码第一次运行时运行正常。但是，之后就开始出错了。错误出现在这一行：

data.Range("B2:B16354").SpecialCells(xlCellTypeVisible).Copy Destination:=skuvp.Range("N2")

它给出的错误是＆＃34;无法获得范围类的Specialcells属性。＆＃34;

我最初在该代码中设置了表格列＃34; Onsales [[Product]]＆＃34;作为前两次的范围，我使用了代码，但将其更改为设定范围，以查看是否可以解决问题。

为什么当相同的基本代码早先运行几行时，此代码在该行上有错误？

我已经在stackoverflow和其他在线资源中搜索了一个没有成功的解决方案。

Answer 1

因此，从评论中可以看出问题是通过使用.Cells：

来解决的

data.Range("B2:B16354").SpecialCells(xlCellTypeVisible).Cells.Copy Destination:=skuvp.Range("N2")

无法获取xlcelltypevisible的范围类的Specialcells属性

1 个答案: