|
すみませんが教えてください。
2枚のシートがあり、1枚目は最大502行のデータが、
2枚目は量が分からず、1000行や2000行あったりします。
1枚目のシートのB列と2枚目のシートC列に全く同じ内容の
データがある可能性があり、全く同じデータの2枚目の行を抽出したいのですが
何か良い方法はありますでしょうか?
抽出ではなく、同じものがあった場合、2枚目のD列に『ABC』という文字が
あった場合のみ『*』を表示させたいのでその方法でもいいのですが・・・。
自分で作ったものは1枚目のデータが抽出されるのですが、
2枚目のデータを抽出しようと順番を変えた途端、全く関係のないものが
抽出されてしまい困っております。
何か良い方法があればお教えくださいませ。
Dim a As Range
Dim b As Range
Dim myCell As Range
Dim mySht As Worksheet
Dim i as Long
With Worksheets
Set a=.Item("data1").Range("B1").CurrentRegion.Columns(1)
Set b=.Item("data2").Range("C1").CurrentRegion.Columns(1)
Set mySht=.Add(After:=.Item(.Count))
End With
i=0
For Each myCell In a.Cells
If WorksheetFunction.CountIf(b,myCell.Value)>0 Then
i=i+1
myCell.EntireRow.Copy mySht.Cells(i,1)
End If
Next
Set a=Nothing
Set b=Nothing
Set myCell=Nothing
Set mySht=Nothing
どうぞ助言宜しくお願い致します
|
|