No.1ベストアンサー
- 回答日時:
こんばんは!
実際のデータの配置がどのようになっているのか判らないので、方法だけです。
>・・・オートフィルタのリスト項目ごとに印刷をしたいのですが・・・
とありますので、ある列の項目すべてでオートフィルタをしプリントアウトしたい!ということだと解釈してのコードになります。
↓の画像のようにSheet1のD列のすべての項目でオートフィルタをかけて、プリントアウトするようにしてみました。
(Sheet1のD列データをSheet2のA列に重複なしで表示するようにしていますので、Sheet2は使用していないという前提です)
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i, j As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名は実際のSheet名に!
Set ws2 = Worksheets("sheet2")
ws2.Cells.Clear
For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range(ws1.Cells(2, 4), ws1.Cells(i, 4)), ws1.Cells(i, 4)) = 1 Then
ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = ws1.Cells(i, 4)
End If
Next i
j = ws1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
Range(ws1.Cells(1, 1), ws1.Cells(j, 4)).AutoFilter field:=4, Criteria1:=ws2.Cells(i, 1)
ws1.PrintOut
Next i
End Sub 'この行まで
あくまでこちらで勝手に表を作った上でのコードですので、中身は実状に合わせる必要があります。
Sheet1のデータ範囲・オートフィルタの列等々です。m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- その他(音楽・ダンス・舞台芸能) チケットに座席番号のみを印刷する方法 4 2023/02/10 11:21
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Excel フィルタをかけた後の各項目を、自動的に印刷する方法は?
その他(Microsoft Office)
-
「オートフィルタ」の作業を自動化したいのですが…
Excel(エクセル)
-
【マクロ】オートフィルターのA列のリストを順番に、行数によっては印刷の向きを指定して印刷したい!
Excel(エクセル)
-
-
4
オートフィルタの印刷をしたい。
Excel(エクセル)
-
5
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
6
VBA オートフィルタで抽出したものを連続貼り付け
その他(Microsoft Office)
-
7
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
8
VBA オートフィルター繰り返し
Visual Basic(VBA)
-
9
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
10
VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか
Visual Basic(VBA)
-
11
オートフィルターで抽出してコピー&印刷するマクロ
Access(アクセス)
-
12
EXCELで一覧表のデータを個別に印刷したい
Excel(エクセル)
-
13
オートフィルタで抽出したデータを別シートの最終行に追加させたい。
Excel(エクセル)
-
14
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
15
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
16
エクセルVBAでフィルタ印刷の方法を教えてください。
Excel(エクセル)
-
17
マクロ 連続印刷
PowerPoint(パワーポイント)
-
18
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
19
フィルターかけた後、重複を除いてカウントしたい。 すみませんアドバイスお願いします! 取引コード 販
Excel(エクセル)
-
20
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WEB上の表の列コピー選択方法は?
-
【エクセル】行挿入で数式もい...
-
メモ帳からエクセルに貼り付け...
-
ワードでアンケートの集計をし...
-
エクセルで作成した縦に長い表...
-
Excelピボットテーブルで 総計...
-
一つのシートの中に複数のペー...
-
オートフィルタのリストを順番...
-
エクセルに詳しい方、助けてく...
-
Excelの数式のコピーで列移動で...
-
PDFの表をExcelにうつして入力...
-
Excel2007でグラフとその元デー...
-
西暦から和暦への生年月日の変...
-
EXCELで「行幅」を保持したまま...
-
エクセルで空白行に上の行のデ...
-
エクセルVBAで、行コピーを複数...
-
エクセルの抽出関数について
-
エクセル 可視セルのみへ貼り...
-
エクセルの列幅
-
ピボットテーブル→参照が正しく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
オートフィルタのリストを順番...
-
WEB上の表の列コピー選択方法は?
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
ピボットテーブル→参照が正しく...
-
エクセルVBAで、行コピーを複数...
-
メモ帳からエクセルに貼り付け...
-
Excelピボットテーブルで 総計...
-
エクセルのリストから欠番を拾...
-
Excel 表から値をさがして隣の...
-
Excelの数式のコピーで列移動で...
-
エクセルの関数の使い方 繰越...
-
エクセルの列幅
-
Excelで検索結果をテキストボッ...
-
一太郎にエクセルの表を貼り付...
-
エクセルに詳しい方、助けてく...
-
地番を順に並べたい。
-
マクロを強制的に有効にする方法
-
ワードでアンケートの集計をし...
おすすめ情報