マクロについて教えてください

質問

エクセルで作った表のマクロを作りたいと思っています。

抽出した新規のデータと更新データを比較して、
重複することのないデータを作りたいのです。

抽出したデータのファイル名は、どちらも「EXCELデータ」となっています。
シート名はどちらも「データ」です。

表はどちらのシートとも、A列からJ列まであります。
（データの並び順は同じです。）

両方のシートから、下記１～３の条件のデータを取り出して、
新しいシートに書き出したいと思っています。

A 　　　　B 　　C 　　　　D 　　　　　E 　　　F 　　　G 　　　　H 　　I 　　　J
番号　名前　区分　ジャンル　決定日　締切日　コード　社名　価格　区分

１　Ｃ列とＧ列を削除する
２　Ｊ列に「１」が記入してあるものを抽出する
３　Ｂ列に「初回」と言う文字が含まれているものを、抽出する。

新規分と更新分のデータをＡ列で比較し、
重複しているものについては色をつける。

というようなものを作りたいのです。

出来れば、ファイルやシートの名前を変えないで作りたいのですが、
変更をすることも可能です。

どなたか教えてください。宜しくお願いします。

回答No.4

noname#192382

Ｎｏ3の追加です。
次の段階
二つのシートのデータを一緒にしてならへ替えをした後下記のＶＢＡを実行すると同じ番号のデータだけ黄色になります。このプログラムの繰り返し回数は適宜変更してください。
ｓub Macro4()
'
' Macro4 Macro
' マクロ記録日 : 2006/1/12 ユーザー名 : 長谷嘉臣
'

'
Application.Goto Reference:="Macro4"
Range("a1:a26").Select
Dim i, i1 As Integer
For i = 1 To 25
i1 = i + 1
If Cells(i, 1) = Cells(i1, 1) Then
With Selection.Cells(i, 1).Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

End If
Next

End Sub
Sub Macro5()

回答No.3

noname#192382

Ｎｏ2の追加です。マクロの作り方です。
1.データの一部をクリック
2.「ツール」「マクロ」「新しいマクロの記録」ＯＫ
3.以下手動でやっていることをマクロに記録します。
Ｇ列を選択して「編集」削除
4.Ｃ列を選択して「編集」削除
5.見出し行をすべて選択して「でーた」「フィルター」「オートフィルター」と進む
6.名前のれつで「初回」、区分の列で「1」を選ぶ。
7.「ツール」「マクロ」マクロの記録終了を選ぶ。

新しいデータでデータの一部をクリックして「ツール」「マクロ」を選び先に作成したマクロを実行させると同じことがマクロできるようになりました。この後は時間をください。しばらく考えさせてください

回答No.2

noname#192382

No1の追加です。ｇの列を選択し「編集」「削除」し、次にｃの列を選択し同様に削除します。
次にＡ列からＨ列まで列見出し（番号名前・・・）を選択して「データ」「フィルター」「オートフィルター」をクリックして「区分」　　のところの逆三角矢印をクリックして「1」を選択し次に「名前」　のところの逆三角矢印をクリックして「初回」を選択すると３つの抽出条件に合うものが選ばれます。ここまではマクロを使わなくてできます。質問者はここまではお分かりでしょうか。

お礼

分かっています。

今はオートフィルタで全て行っているのですが、
それをマクロで出来たらと思って、質問をさせていただきました。

回答No.1

noname#192382

お尋ねしますが、メニューバーを使って1,2,3の抽出作業ができますが、そのことはご存知でしょうか。（えくせる97の場合）