Excel VBA列没有’；无论何时页眉出现在工作表上，都不能删除

我将一张图纸复制并粘贴到另一张图纸上，但数据量总是在变化。每当我粘贴时，工作表末尾会出现一列标记为“总计”，但它会弄乱另一张工作表上的数据，因此我想将其删除。它从第二个代码中删除，但不从第一个代码中删除。我需要帮助弄清楚为什么第一个不起作用

 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

---

正确确定您的范围，您将：

---

您可以在每行前面放置四个空格，而不是反勾号。它看起来更好，也更容易复制。@wizzwizz4更好，突出显示整个代码块，然后按键盘上的Ctrl+K:）

Set RidGrTotal=Range（“B1:AH3000”）

此范围仅适用于运行时处于活动状态的任何工作表。在该范围内循环两次，第二次循环将没有效果，因为它只是重复在第一次循环中所做的操作。您需要为每张工作表重新分配此任务，或者使用其他方法处理每张工作表。啊，好的，我不确定激活是如何开始的，但这是有意义的，谢谢。

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