對於i = 2到thisworkbook.worksheets.count通過工作簿中的所有工作表

Question

任何人都可以幫我嗎？我試圖讓我的代碼循環遍歷工作簿中的所有工作表。它完美適用於一個工作表，但我努力使其循環遍歷所有工作表

Sub stringcheck() 

Dim MainString As String 
Dim SubString As String 
Dim Lastrow As Long, Lcount As Long 
Dim i As Integer, j As Integer 

SubString = "All Grps" 

Lastrow = ThisWorkbook.Worksheets("SalesChannelName").Range("A30000").End(xlUp).Row 


For i = 3 To Lastrow 
    MainString = Range("B" & i) 
     If InStr(MainString, SubString) <> 0 Then 
      Rows(Range("A" & i).Row + 1 & ":" & Range("A" & i).Row + 2).Insert 
     End If 
Next i 

End Sub 

Answer 1

要通過所有工作表循環您的代碼，請使用下面的代碼。

Sub stringcheck() 

Dim MainString As String 
Dim SubString As String 
Dim Lastrow As Long, Lcount As Long 
Dim i As Integer, j As Integer 
Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 
ws.Activate 
SubString = "All Grps" 

Lastrow = ActiveSheet.Range("A30000").End(xlUp).Row 


For i = 3 To Lastrow 
    MainString = Range("B" & i) 
     If InStr(MainString, SubString) <> 0 Then 
      Rows(Range("A" & i).Row + 1 & ":" & Range("A" & i).Row + 2).Insert 
     End If 
Next i 
Next ws 
End Sub 

Answer 2

你可以試試這個...

Sub stringcheck() 
    Dim ws As Worksheet 
    Dim MainString As String 
    Dim SubString As String 
    Dim Lastrow As Long, Lcount As Long 
    Dim i As Integer, j As Integer 

    Application.ScreenUpdating = False 

    SubString = "All Grps" 

    For Each ws In ActiveWorkbook.Worksheets 
     Lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row 
     For i = Lastrow To 3 Step -1 
      MainString = ws.Range("B" & i) 
      If InStr(MainString, SubString) <> 0 Then 
       ws.Range("A" & i + 1).Resize(2).EntireRow.Insert 
      End If 
     Next i 
    Next ws 
    Application.ScreenUpdating = True 
End Sub