エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4266 for オートフィルタ (0.004 sec.)

[[20230131215413]]: #score: 4241; @digest: 288f1b6c7feba06148c047fd69d9bfa5; @id: 93392; @mdate: 2023-02-01T06:55:03Z; @size: 2555; @type: text/plain; #keywords: filterlist (36340), autofilterrange (34535), filtercolumn (29523), jogai (27823), 外リ (19327), タ対 (13623), 連k (7748), 化fi (7380), 行au (7323), 連想 (5044), 想配 (4897), 除外 (3826), 用") (3576), ト用 (3385), タ実 (3270), 象列 (2875), 除fo (2225), 列化 (2011), xlfiltervalues (1827), 一次 (1427), 複削 (1352), トフ (1158), 配列 (1147), autofilter (1137), ルタ (1106), リス (1104), オー (989), criteria1 (961), フィ (926), 元配 (883), ィル (881), operator (832); 『フィルタで型が一致しません』（きんちゃん）
Worksheets("リスト用").Range("l3:l10")の範囲にある文字列だけを、オートフィルタで除外したいのですが、以下の記述だと最終行で「型が一致しません」のエラーが出ます。どの部分がいけないでしょうか。 Dim JOGAI As Range Set JOGAI = Worksheets("リスト用").Range("l3:l10") ActiveSheet.Range(Cells(5, 1), Cells(LASTROW, 32)).AutoFilter Field:=23, Criteria1:="<>" & JOGAI ＜使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- JOGAI は配列ですが、それに"<>"を連k津するという演算はできません。（仕様です）また、仮にその書き方が成功したとしても、それはOR条件でしょうから「どれかに等しくない」という意味となり、結果としてすべてが抽出されませんか? 列を追加して、COUNTIFか何かで、23列の値が "リスト用"シートの"l3:l10"セル範囲に含まれるかと計算しておき、それを対象にAutofilterを掛けるのが手軽ではないですか? （abc） 2023/01/31(火) 22:26:47 ---- 被ったけどそのまま投稿します書き方も違いますが、除外を3つ以上はオートフィルターでは不可能です作業列を使った方法が解説されていましたので参考にしてください https://excel-ubara.com/excelvba4/EXCEL259.html フィルタオプションなら、計算式を検索条件にできますが、作業列使ったやり方の方が後々管理しやすいです（稲葉） 2023/01/31(火) 22:29:23 ---- かなり雑ですが連想配列で除外リストの値を弾く例 Dim JOGAI Dim AutoFilterRange As Range Dim filterList Dim filterColumn As Long Dim r '除外リストをつくる（配列） JOGAI = Worksheets("リスト用").Range("l3:l10") 'オートフィルタ対象範囲を設定 With ActiveSheet Set AutoFilterRange = .Range(.Cells(5, 1), .Cells(LASTROW, 32)) End With 'オートフィルタ対象列の値を配列で取り出す filterColumn = 23 Set filterList = Intersect(AutoFilterRange, AutoFilterRange.Columns(filterColumn)).Value Dim dic As Object Dim v 'オートフィルタ対象列の値を連想配列に入れる（重複削除） Set dic = CreateObject("Scripting.Dictionary") For Each v In filterList dic(v) = "" Next '除外リストの値を連想配列から削除 For Each v In JOGAI If dic.exists(v) Then dic.Remove v Next '除外リストの値を削除したリストを一次元配列化 filterList = dic.keys Set dic = Nothing オートフィルタ実行 AutoFilterRange.AutoFilter Field:=filterColumn, Criteria1:=filterList, Operator:=xlFilterValues （お邪魔します） 2023/02/01(水) 11:22:18 ---- Sub Macro1() Dim Rng As Range Set Rng = Worksheets(1).Range("L3:L10") _ .SpecialCells(xlCellTypeConstants, xlTextValues) Rng.Select End Sub こういうことかな? （まっつわん） 2023/02/01(水) 15:55:03 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202301/20230131215413.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ