Excel VBマクロで別のシートの値を検索し、現在のシートのセル値を変更します

Question

2つのワークシートを持つファイルがあります。空になるまで、シートAの列Aを見下ろすマクロを実行する必要があります。シート1のシート2の列Aのセルから値を探す必要があります。見つかった場合は、列APの値を変更します。見つからなければ、次の値の次の検索にスキップします。

これはこれまで私が行ってきたことです。私はもはやエラーが発生しない場所に修正することができましたが、結果もありません。実行されているように見えますが、シート1のセル（「AP」、「行の値が見つかりました」）に変更はありません。

Sub dataChange() 
    Dim myRow As Integer 
    Dim srch As Integer 
    On Error GoTo Err_Execute 
    myRow = 1 
    srch = 1 
    While Sheet2.Cells(myRow, 1).Value <> "" 
     If Sheet1.Range("A" & CStr(srch)).Value = Sheet2.Cells(myRow, 1).Value Then 
      Sheet1.Range("AP" & CStr(srch)).Value = "HOUSTON" 
     End If 
     srch = srch + 1 
     myRow = myRow + 1 
    Wend 
Err_Execute: 
    MsgBox "An error occurred." 
End Sub 

Answer 1

あなたのコードはSheet2にA1へSheet1からA1を比較しています。私はA1をSheet1に、ColumnAをすべてSheet2に比較したいと思います。したがって、外側ループが必要です。

以下は、これを行うためのコードです。また、IntegerをLongに変更するLeviathanのコメントを組み込み、Exit Subを適切な場所に挿入しました。

Sheet2のはこのようになります...

私は、シート1に、この結果を得る...

コード...

Sub dataChange() 
    Dim myRow As Long, srch As Integer 
    On Error GoTo Err_Execute 
    myRow = 1 
    srch = 1 
    Do While Sheet1.Cells(srch, 1).VALUE <> "" 
     Do While Sheet2.Cells(myRow, 1).VALUE <> "" 
      If Sheet1.Cells(srch, 1).VALUE = Sheet2.Cells(myRow, 1).VALUE Then 
       Sheet1.Range("AP" & srch).VALUE = "HOUSTON" 
       Exit Do 
      End If 
      myRow = myRow + 1 
     Loop 
     myRow = 1 
     srch = srch + 1 
    Loop 
    Exit Sub 
Err_Execute: 
    MsgBox "An error occurred." 
End Sub