小编Dav*_*ren的帖子

我真的不知道这个错误意味着什么...我正在尝试使用代码来选择数据透视表中一个子标题下的所有行.我得到一个运行时错误1004"无法获得数据透视表类的PivotFields属性".这是代码:

 Sub ttest()
 Dim pt As PivotTable
 Set pt = Sheets("Report").PivotTables("PivotTable1")

 pt.PivotFields("Row Labels").PivotItems("CL").DataRange.Select

 End Sub

我试图删除A7:AI300包含黄色填充单元格范围内的所有行(颜色索引6)我有一些代码将删除包含颜色的所有行但我遇到的问题是它正在尝试运行整个工作表的代码,将冻结我的工作簿.我试图插入一个范围来加速计算.任何人都可以告诉我如何插入范围,以便它的工作原理

Sub deleterow()
   Dim cell As Range
   For Each cell In Selection
       If cell.Interior.ColorIndex = 6 Then
           cell.EntireRow.Delete
       End If
   Next cell
End Sub