Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15291 / 76734

←次へ　｜　前へ→


	【66922】Re:2枚のシートを比較し同じものがあった場合その行を抽出したい

teian - 10/10/17(日) 8:01 -


	引用なし

	パスワード

>2枚目のデータを抽出しようと順番を変えた途端
を、どうやったのかが良く分かりませんけど、

CurrentRegionプロパティによるデータ範囲の取得で正しくいとした範囲が取得できているなら、
パッと見ですが、
>For Each myCell In a.Cells
>If WorksheetFunction.CountIf(b,myCell.Value)>0 Then
を
For Each myCell In b.Cells
　　If WorksheetFunction.CountIf(a,myCell.Value)>0 Then
ってことかと思いましたが、違いますか？

あと、なんとなくですが、
ヘッダー行を挿入して、フィルターオプションの設定でやらせても良さそうな気もします。

3 hits

▼

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