|
よろしくお願いします。
EXCELは2003です。
AdvancedFilterを使い、指定列の中の重複しないデータを別シートに作成したいのですが、うまくいきません。
具体的には、作業明細シートの日付列(Columns(3))(表示形式:標準)に20090601などの数値が入っています。
どんな日付があるのか知りたくて、重複しない日付を日付集計1シートに取り出したいのですが、うまくいきません。
また、他に気になる点があります。criteriarangeがCriteriaRange、copytorangeがCopyToRangeとならないので、コードとして認識していないのかなと心配しています。
以下にコードを書きます。
Sub 日付抽出1()
Worksheets("作業明細").Range("A3").CurrentRegion.Columns(3). _
AdvancedFilter action:=xlFilterCopy, _
criteriarange:=Empty, _
copytorange:=Worksheets("日付集計1").Range("A3"), _
Unique:=True
End Sub
日付集計1シートは空の状態で実行しています。実行するとエラーにはなりませんが、日付集計1シートには何も表示されません。
また、日付集計1シートのセルA3の名前ボックスはExtractと表示されています。
よろしく、お願いいたします。
|
|