エクセル ○○以外を抽出

質問

（シート1）
A 　　　　Ｂ　　　　　
1 リンゴ　　　沖縄　　　
2　みかん　　北海道
3　かき　　　　滋賀
4　さんま　　　山口
5　かき　　　　滋賀
6　いわし　　　東京
7　リンゴ　　　沖縄

で、リンゴ・みかん・かきの行以外を別シートに自動反映する方法ありませんか？

リンゴだけを抽出といった方法は分かったのですが、、、
　　　　　↓（ちなみにそれは）

Private Sub CommandButton3_Click()
With Sheets("Sheet1")
.AutoFilterMode = False
.Range("A1:M1").AutoFilter
.Range("A1:M1").AutoFilter Field:=1, Criteria1:="リンゴ"
.Range(.Range("A1"), .Range("A1").SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).Copy Range("A1")
.AutoFilterMode = False
End With
End Sub

のようにやりました。

すんません、教えてください！！！

回答No.5

keithin · ベストアンサー

変更前：
.range("N2:N" & r).formula = "=(A2<>""リンゴ"")*(A2<>""みかん"")*(A2<>""かき"")"

変更後：
.range("N2:N" & r).formula = "=1*AND(ISERROR(FIND({""リンゴ"",""みかん"",""かき""},A2)))"

回答No.4

keithin

たとえばオートフィルタを使って。

private sub CommandButton3_Click()
　dim r as long
　with worksheets("Sheet1")
　r = .cells.specialcells(xlcelltypelastcell).row
　.range("N:N").insert
　.range("N2:N" & r).formula = "=(A2<>""リンゴ"")*(A2<>""みかん"")*(A2<>""かき"")"
　.range("N:N").autofilter field:=1, criteria1:=1
　.range("A1:M" & r).copy destination:=range("A1")
　.range("N:N").delete shift:=xlshifttoleft
　end with
end sub

補足

すいません
リンゴジュースやみかん、なども同時にはずしたいのですがどうすればいいですか？
＊リンゴ＊、みたいにするとうまく稼働しません。

お願いします！！

回答No.3

mu2011

一例です。
リンゴ以外は普通に比較演算子（<>）を付加して次のようになります。又、コピーも何となく整理してみました。

.Range("A1:M1").AutoFilter Field:=1, Criteria1:="<>リンゴ"
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Range("A1")

回答No.2

mshr1962

一例ですが

Sheet1
1 名産 産地　←行（項目）の追加
2 リンゴ 沖縄
3 みかん 北海道
4 かき 滋賀
5 さんま 山口
6 かき 滋賀
7 いわし 東京
8 リンゴ 沖縄

Sheet2（抽出条件を作成）
名産　　　　　名産　　　　　名産
="<>リンゴ" ="<>みかん" ="<>かき"

マクロ（フィルタオプションの設定）
Private Sub CommandButton3_Click()
WorkSheets("Sheet3").Select
Sheets("Sheet1").Range("A1:B8").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet2").Range("A1:C2"), _
CopyToRange:=Range("A1"), Unique:=False
End Sub

回答No.1

某HN クロメート(Chromate)（@CoalTar）

タイトル行を追加してフィルタオプションの設定を使う準備をします
条件表(検索条件範囲)は 横に並ぶようにすればAND条件です。

Sheet2においてフィルタオプションの設定を行います
添付図参照
リスト範囲 Sheet1!$D$6:$E$6
検索条件範囲 Sheet1!$D$1:$F$2
抽出範囲 Sheet2!$A$1

「青リンゴ」などはバージョンによって抽出の仕方が違うかも(未検討)
XL2002ではSheet2に移りました

マクロはほかの方にお任せですm(_ _)m