VBA

Question

でMS Excelのオートフィルタのユニークな値は、私は、テーブルに（A）をフィルタリングする機能を持っていなさい：

(A) | B | C | D | E 
x 
x 
y 
x 
zx 

は今、私は行の出力のすべての一意の値（A）に

をしたいです - > 'x'、 'y'、 'zx'

フィルタリングする前に、この情報にアクセスする手掛かりはありません。

Sub MakeFilter() 
    Worksheets("Sheet1").Range("A3:AT1000").AutoFilter field:=1, Criteria1:="x", _ 
     VisibleDropDown:=True 
End Sub 

画像では、手動でどのように行われたかを確認できます。ピーターはリストの2倍ですが、フィルター選択リストでは1回だけです。私は選択ボックスにそれらの値だけを必要とします。それらのすべて。

First image Second image

Answer 1

次のコードは、すべての重複を削除して、自動フィルタを適用し、シート2に、列Aをコピーします。ループを使用して、以下に説明するタスクを実行する方がよい場合があります。

Sub MakeFilter() 

Dim ws As Worksheet 
Dim wbnew As Workbook 

x = 0 

Set wbnew = Workbooks.Add(xlWBATWorksheet) 

    For Each ws In ActiveWorkbook 

    wbnew.Sheets(1).Range("A3:A1000").Offset(0, x).Value = ws.Sheets(1).Range("A3:A1000").Value 

    wbnew.Sheets(1).Range("A3:A1000").Offset(0, x).RemoveDuplicates Columns:=Array(1), Header:=xlNo 

    x = x + 1 

    ws.Range("A3:AT1000").AutoFilter field:=1, Criteria1:="x", VisibleDropDown:=True 

    Next ws 

End Sub 

これが役立つかどうか教えてください。