エクセル複数のシートからデータの摘出

質問

• エクセルの２０１０で複数のシートから重複データの抽出を行いたいです。
• 具体的には、部署で検索条件を行い、現在は２種類の条件を持っていますが、将来的には３０種類を超える予定です。
• VBAを使用してマクロを組んでいますが、２００３のエクセルでは上手く動作しません。２０シートと３０種類のマクロを組んで問題なく動作させたいです。

回答No.3

kikitaiOK

Ａ、Ｂ、Ｃ・・・が列名
１、２、３・・・行名
各シート名は「Sheet1～Sheet20」
集計用シート名は「集計用」
とすると

For i = 1 To 20
シートを増やす場合、この20を増やしたシート名の数字に変更すればよい

With Worksheets(i)
　シート名が「Sheet1～ｘ」で統一されているのであれば
　With Sheets("Sheet" & i)に変えたほうがいいかも？

.AutoFilterMode = False
.Range("A1:E1").AutoFilter
　各シートの"A1:E1"でオートフィルタをするから
　たぶん"A1:D1"の間違いでは？

For k = 2 To 3
　次の集計シート検索条件のある「行番号」を指定してあると思いますので
　検索条件が増えればそのぶんこの３を増やしてあげれいいと思います。

.Range("A1:E1").AutoFilter Field:=5, Criteria1:=Range("B" & k).Value
　"A1:D1"の間違い？であってれば、部署があるのは左から３番目の列だからField:=3
　検索条件の
　Range("B" & k).valueの部分も
　Sheets("集計用").Range("B" & k).value
　にしたほうが後から見て分かりやすいと思います。

.Range(.Range("A2"), .Range("A1").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Range("A65536").End(xlUp).Offset(1)
.AutoFilterMode = False
Next k
End With
Next i
End Sub

これでとりあえず検索条件のデータは集計用のシートに出てくるようになるはずです。

このあとどのように重複チェックされてるのかはわかりませんが・・・

お礼

ありがとうございます。
ご指摘の所間違っていました。
これでは質問する以前の話ですね・・・
とりあえず２０１０では摘出出来るので
作業を進めています。
もしよければもう一つ

シートに摘出データが存在しないと
項目だけ摘出されてしまいます。
いい方法はなでしょうか？

わがままですいません。