在所有工作表上运行脚本 excel

Question

我有这个脚本，它搜索一个定义的字符串，如果找到它就删除该列。我想在工作簿中的所有工作表上运行相同的搜索。到目前为止，我已经尝试过这样设置。但它只会在 Active Sheet 上运行。

Sub RunMacroOnAllSheetsToRight()
For i = ActiveSheet.Index To Sheets.Count
    Call MyFunction(i)
Next i
End Sub


Function MyFunction(i)
Dim c As Range
            Dim str As String

            str = "SearchStringHere"

            For Each c In ActiveSheet.UsedRange
               If InStr(c.Value, str) > 0 Then
               c.EntireColumn.Delete Shift:=xlToLeft
               End If
            Next c

End Function

脚本现在循环执行，但出于某种原因仅删除单个列。需要能够匹配和删除每个工作表的多个列。

Answer 1

你只需要在你的“函数”中更改ActiveSheet，它会更好！

顺便说一句：您可以有一个带有参数的 Sub（如下所示），并且仅当您有输出结果（您的示例中没有）时才需要一个函数。

2 主要变化： - 添加 Set Ws=Nothing 以释放 Ws - 改变了通过列的增量，因为当删除一个越来越多的列时，你错过了分析下一个列（j+1），现在是列（j）

Sub RunMacroOnAllSheetsToRight()
Application.ScreenUpdating = False
For i = ActiveSheet.Index To Sheets.Count
    Column_Delete i, "SearchStringHere"
Next i
Application.ScreenUpdating = True
End Sub


Sub Column_Delete(ByVal Sheets_Index As Integer, ByVal Str_to_Find As String)

Dim Ws As Worksheet
Set Ws = Worksheets(Sheets_Index)


Dim EndColumn As Integer
EndColumn = Ws.Cells(1, Columns.Count).End(xlToLeft).Column

'descending travel of the columns as we are going to delete some of them
For j = 1 To EndColumn
    If InStr(Ws.Cells(1, EndColumn - j + 1), Str_to_Find) > 0 Then
        Ws.Columns(EndColumn - j + 1).EntireColumn.Delete Shift:=xlToLeft
    End If
Next j

'Don't forget to free Ws (like I did...)
Set Ws = Nothing

End Sub