vba - ある列の値を検索し、別の列の値を置き換える方法

Question

単純なコード エラー 1004、または使用するコードによっては Sub が定義されていません。2 つの異なるシートの数値を比較し、行の 1 つの値を置き換えるのに助けが必要です。 (EX. sheet1 "A1" = 809565 は Sheet2 "A28" = 809565 と一致するため、現在の文字列を "Above Ground(I)" に変更する必要があります。)

Set dbsheet = ThisWorkbook.Sheets("Sheet1")
Set dbsheet_1 = ThisWorkbook.Sheets("Export_For_WMIS_Recon")

Col_Len = dbsheet.Cells(Rows.Count, 1).End(x1UP).Row
Col_Len_1 = dbsheet_1.Cells(Rows.Count, 1).End(x1UP).Row

For x = 1 To Col_Len

     For i = 1 To Col_Len_1
        Search_num = dbsheet.Cells(x, 1)
        Comp_num = dbsheet_1.Cells(i, 1)
        Comp_word = dbsheet_1.Cells(i, 3)
        If Search_# = Comp_# And Comp_word = "Aboveground" Then
            Comp_word = "ABOVE GROUND(I)"
        End If
     Next i
Next x
End Sub

コード 2:

row_number = 0
r_number_2 = 0

Do
DoEvent
r_number_2 = r_number_2 + 1
Search_# = ThisWorkbook.Sheets("Sheet1").Range("A" & row_number)
Comp_# = ThisWorkbook.Sheets("Export_For_WMIS_Recon").Range("A" & row_number)
    If Search_# = Comp_# And ThisWorkbook.Sheets("Export_For_WMIS_Recon").Range("C" & row_number) = "Aboveground" Then
        ThisWorkbook.Sheets("Export_For_WMIS_Recon").Range("C" & row_number) = "ABOVE GROUND(I)"
    End If
Loop Until Comp_# = ""

Search_# = "" までループ