エクセルVBAについて (データのマッチング)

質問

過去ログで解決できなかったのでここに書かせていただきます。
エクセルのＶＢで下記のプログラムを作成したいのですがうまくマクロが組めません。

ファイル名：TEST01.xls
ファイル名：TEST02.xls

があります。

TEST01.xlsにあるＡ列のデータとTEST02.xlsのＡ列にあるデータが一致したおり、かつTEST02.xlsのＤ列のデータが『×』の場合のみ、TEST01.xlsのＢ列に固定の文字(test)を入力し、TEST01.xlsのＣ列に入力されているデータを削除するプログラムを作りたいです。

ご存知の方がいらっしゃれば、ご教授よろしくお願い致します。

回答No.1

ASIMOV

Sub TEST()
Workbooks.Open Filename:="D:\DATA\TEST02.xls"
l = 1 '(開始行)
Do
Workbooks("test01.xls").Activate
x = Cells(l, 1)
Workbooks("test02.xls").Activate
If x = Cells(l, 1) And Cells(l, 4) = "×" Then
Workbooks("test01.xls").Activate
Cells(l, 2) = "test"
Cells(l, 3) = ""
End If
l = l + 1
Loop Until l = 9 '（終了判定）
Workbooks("test01.xls").Activate
Workbooks("test02.xls").Close
End Sub

こんな感じでしょうか？