フィルターオプションのマクロ登録について

質問

Excel2016のフィルターオプションのマクロ登録について

Excel2016で名簿データを作成しています。
フィルターオプションを使用して、地区ごとのデータをそれぞれ別シートに作成していますが、
「マクロの登録」の存在を初めて知ったため、登録してみました。
（マクロについては全くの初心者です）

マクロの実行まではうまくいったのですが、元データを更新した後に、マクロを実行しても
Ａ列の番号だけが抽出され、詳細内容が反映されません。
（前回に抽出されたものをすべて消してやり直せば反映されます）

原因として考えられることがあれば教えてください。

マクロの内容は以下の通りです。
（元データは「練習」としています）

よろしくお願いいたします。
-----------------------------------------------------------

Sub 地区別()
'
' 地区別 Macro
'

'
Application.CutCopyMode = False
Application.CutCopyMode = False
Sheets("練習").Range("テーブル8[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4"), Unique:=False

End Sub

回答No.1

unokwave · ベストアンサー

その上手くいく処理を実行すれば良いのでは。
処理をやり直す以下の記述をAdvancedFilterの前に実行するとどうなりますか。
If Sheets("練習").FilterMode Then
Sheets("練習").ShowAllData
End If

補足

ありがとうございます。

やはり、最初のA列のNo.だけしか反映されず、詳細データが反映されませんでした。

Sub 地区別()
'
' 地区別 Macro
'
If Sheets("練習").FilterMode Then
Sheets("練習").ShowAllData
End If
'
Sheets("練習").Range("テーブル8[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4"), Unique:=False

End Sub

上記で実行しましたが、
入力箇所が間違っていますでしょうか。

回答No.2

unokwave

>前回に抽出されたものをすべて消してやり直せば反映されます

これはA4の内容ですか？それなら
Sheets("練習").Range("A4").Clear
を実行すればよいはず。