添付の画像を使って質問させて頂きます。
バージョンは2010です。
お客様名 A,B,C,D,E 以外のお客様名を抽出するようにマクロを組みたいのですが
ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=2, Criteria1:= _
"<"&">&"A", Operator:=xlOr, Criteria2:="<"&">&"B""
の様に考えましたが一つの列に3つ以上の条件では対応できないことが分かりました。
添付の画像は実際使用している表を簡素化しているため
お客様名が少ないですが、実際は多様なお客様名があります。
その中で特定した5社以外のお客様の情報を抽出したいです。
宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
>特定した5社以外のお客様の情報を抽出したい
sub macro1()
dim a
a = application.transpose(range("B2:B" & range("B65536").end(xlup).row).value)
a = filter(a, "A", false)
a = filter(a, "B", false)
a = filter(a, "C", false)
a = filter(a, "D", false)
a = filter(a, "E", false)
range("A:D").autofilter field:=2, criteria1:=a, operator:=xlfiltervalues
end sub
とかでいいです。
No.3
- 回答日時:
こんばんは!
A・B・C・D・E 「に等しい」でオートフィルタをかけるのは簡単ですが、
今回はそれ以外というコトですので・・・
安直な方法ですが作業列を1列使ってその列だけでオートフィルタをかけてみました。
Sub Sample1()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range("E:E").Insert
Range(Cells(2, "E"), Cells(lastRow, "E")).Formula = _
"=IF(OR(B2=""A"",B2=""B"",B2=""C"",B2=""D"",B2=""E""),"""",1)"
Range("A1").CurrentRegion.AutoFilter field:=5, Criteria1:=1
End If
End Sub
※ 手を動かしてやることを単純にコードにしただけです。m(_ _)m
No.2
- 回答日時:
条件がアルファベットのみならですが。
。。ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=2,Criteria1:=Array("F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"), Operator:=xlFilterValues
のようにすれば、"A"~"E"を除外できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】3つのエクセルブックから1つエクセルブックにお客様番号をまとたい 2 2022/12/08 00:09
- Excel(エクセル) 【関数】【マクロ】データの転記の方法について 2 2023/07/26 15:22
- Excel(エクセル) 【詳しい方教えて下さい】EXCEL条件に一致する値の複数抽出 9 2022/04/29 10:56
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Excel(エクセル) Excelの担当者割当の表から担当者を抽出する方法 4 2022/07/16 14:05
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- 新卒・第二新卒 就活 新卒 自己PR 強み 添削お願いします。 以下の文章で自己PRを書いてみたのですが、どこが競争 3 2023/02/25 21:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
Hyperlink関数をクリックしてくれるマクロ
Excel(エクセル)
-
-
4
エクセルフィルターオプションの複数条件除外
Excel(エクセル)
-
5
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
6
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
7
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル、オートフィルタで最...
-
エクセル関数で、数字の入った...
-
Excelオートフィルターで絞り込...
-
なぜShowAllDataだとうまく行か...
-
ACCESSでスペースの抽出
-
オートフィルタは金額の桁カン...
-
【excel】リスト内の条件にあっ...
-
エクセルにて、フィルタをかけ...
-
エクセルVBA/StatusBarの表示文...
-
Excel共有ブックのオートフィル...
-
access マクロでのフィルタの...
-
アクセスにはオートフィルタは...
-
【EXCEL】条件に一致した最新デ...
-
今日の日付のデータをすばやく...
-
【大至急】エクセルで、検索語...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
Excel共有ブックのオートフィル...
-
エクセルで、条件に一致した行...
-
エクセル・条件付で行を削除す...
-
access マクロでのフィルタの...
-
オートフィルタで3つ以上の条...
-
オートフィルタで選択したデー...
-
エクセルにて、フィルタをかけ...
-
可視セルを対象としたcountifが...
-
【EXCEL】条件に一致した最新デ...
-
VBA オートフィルタで抽出した...
-
今日の日付のデータをすばやく...
-
【Excel/関数/条件付き書式】月...
-
なぜShowAllDataだとうまく行か...
-
エクセルのオートフィルタで困...
おすすめ情報