每当表头出现在工作表[重复]上时,VBA列不会删除

Question

我将一张纸复制粘贴到另一张纸上，但数据量总是变化的。每当我粘贴时，在工作表的末尾会出现一列标记为“总计”的内容，但它会把另一个工作表上的数据弄乱，所以我想删除它。它从第二个代码中删除，但不从第一个代码中删除。我需要你帮我弄明白为什么第一个不起作用。

 Set RidGrTotal = Range("B1:AH3000")
    isum.Sheets("pivot custom").Activate
    For Each cell In RidGrTotal
        If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents
    Next  

    Set RidGrandTotal = Range("B1:AH3000")
    isum.Sheets("Pivot to MW").Activate
    For Each cell In RidGrandTotal
        If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents
    Next

Answer 1

适当地限定您的范围，您就可以避免依赖activate以及由隐式限定等引起的所有问题：

Dim cell as Range
Dim addr = "B1:AH3000"


For Each cell In isum.Sheets("pivot custom").Range(addr)
    If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents
Next  

For Each cell In isum.Sheets("Pivot to MW").Range(addr)
    If cell.Value = "Grand Total" Then cell.EntireColumn.ClearContents
Next