Есть ли какие-либо решения, чтобы проверить значение из другой таблицы и использовать метку, которая проверена, чтобы заменить содержимое?

Question

Здесь я получил две таблицы типов файлов xlsx: Sheet_01.xlsx и Sheet_02.xlsx.

Я хочу найти содержимое: столбца «I» в Sheet_01 ( AG_MEAL_TEST )

в столбце "A" Sheet_02.xlsx , чтобы найти соответствующих меток

( Процедурный агент для проверки возможности приема пищи ), который находится в столбце "C" . И

затем замените в столбце I в Sheet_01 на метку, которая искала в

Sheet_02.

Результаты Sheet_01 должны быть следующими (столбец «I» Sheet_01 изменен):

Я пробовал коды следующим образом, но это не сработает. Как новый стартер VBA, я запутался, пожалуйста, помогите мне! Большое спасибо! :-)

Sub Open_CSV()

Windows("Sheet_01.xlsx").Activate

Dim sht_slea As Worksheet
Dim F_OID As Range

Set sht_slea = Worksheets("Sheets (1)")
Set F_OID = sht_slea.Range("I2")

Windows("Sheet_02.xlsx").Activate

For Each rng In Range("A2:A5")
    If rng = F_OID Then
        oi = rng.Row
        Set DF_Name = Range("C" & oi)
        End If
Next

Windows("Sheet_01.xlsx").Activate

tc_1 = ActiveSheet.UsedRange.Rows.Count
tc_2 = ActiveSheet.UsedRange.Rows(tc_1).Row
Range("I2:I" & tc_2) = DF_Name

End Sub