前提・実現したいこと
VBAで表より性別ごとのシートを作成したいです
発生している問題・エラーメッセージ
A1:P21の表があり、1行目は各項目、D列が性別の項目です。
この表から男と女のみの別シートをおのおの作成し、
全項目転記したいです。
エラーメッセージ
実行時エラー1004
.AutoFilter field:=4, criterial:="男"
この行で発生します。
Sub 問題改()
Worksheets("sheet1").Name = "全体 " Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "男" With Worksheets(1).Range("A1:P21") .AutoFilter field:=4, criterial:="男" .Copy End With With Worksheets(2).Range("A1") .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteAll End With Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = "女" With Worksheets(1).Range("A1:P21") .AutoFilter field:=4, criterial:="女" .Copy End With With Worksheets(2).Range("A1") .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteAll End With
End Sub
VBA学習して間もないため、的はずれなことを言っているかもしれませんが
宜しくお願いいたします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/04/15 01:01