こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

があります。

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

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

投稿日時 - 2006-09-12 23:29:21

QNo.2402587

暇なときに回答ください

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

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

こんな感じでしょうか?

投稿日時 - 2006-09-13 23:15:34

あなたにオススメの質問