複数の列の値を比較して複数のワークシートを置換するVBA

Question

E & Fが等しい場合は、40000を超えるブックの列E & Fを比較する必要があります。列Fを新しいテキストに置き換えます。 私はかなり新しくて、私はGoogleから多くの異なる方法を試してみました。

下記（Googleから）は1枚分OKですが、すべてのシートを処理する必要があります。

Sub findcomparereplace() 
Dim wsh As Worksheet, i As Long, lngEndRowInv As Long 
Set wsh = ActiveSheet 

i = 2 
lngEndRowInv = wsh.Range("E" & wsh.Rows.Count).End(xlUp).Row 
While i <= lngEndRowInv 
If Cells(i, "E") Like "*myvalue1*" And Cells(i, "F") Like "*myvalue1*" 
Then 
Cells(i, "F").Value = "myvalue2" 
End If 
i = i + 1 
Wend 
End Sub 

Answer 1

あなたはそうのようなシートを繰り返すことができます素晴らしい仕事をBuddy.That

Sub findcomparereplace() 
    Dim wsh As Worksheet, i As Long, lngEndRowInv As Long 

    For Each wsh In ActiveWorkbook.Worksheets 
     i = 2 
     lngEndRowInv = wsh.Range("E" & wsh.Rows.Count).End(xlUp).Row 
     While i <= lngEndRowInv 
      If wsh.Cells(i, "E") Like "*myvalue1*" And wsh.Cells(i, "F") Like "*myvalue1*" Then 
       wsh.Cells(i, "F").Value = "myvalue2" 
      End If 
      i = i + 1 
     Wend 
    Next 
End Sub