Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15295 / 76734 ←次へ | 前へ→

【66918】2枚のシートを比較し同じものがあった場合その行を抽出したい
質問  あき  - 10/10/17(日) 3:38 -

引用なし
パスワード
   すみませんが教えてください。

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

どうぞ助言宜しくお願い致します
0 hits

【66918】2枚のシートを比較し同じものがあった場合その行を抽出したい あき 10/10/17(日) 3:38 質問
【66922】Re:2枚のシートを比較し同じものがあった場... teian 10/10/17(日) 8:01 発言
【66927】Re:2枚のシートを比較し同じものがあった場... あき 10/10/17(日) 21:45 お礼
【66932】Re:2枚のシートを比較し同じものがあった場... kanabun 10/10/18(月) 9:53 発言
【66935】Re:2枚のシートを比較し同じものがあった場... あき 10/10/18(月) 21:02 お礼

15295 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free