
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excel フィルタをかけた後の各項目を、自動的に印刷する方法は?
その他(Microsoft Office)
-
【マクロ】オートフィルターのA列のリストを順番に、行数によっては印刷の向きを指定して印刷したい!
Excel(エクセル)
-
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
-
4
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
5
「オートフィルタ」の作業を自動化したいのですが…
Excel(エクセル)
-
6
VBA オートフィルタで抽出したものを連続貼り付け
その他(Microsoft Office)
-
7
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
8
VBA オートフィルター繰り返し
Visual Basic(VBA)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
オートフィルタの印刷をしたい。
Excel(エクセル)
-
11
エクセルVBAでフィルタ印刷の方法を教えてください。
Excel(エクセル)
-
12
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
13
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
14
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
15
エクセル: セルの枠を超えて表示
Excel(エクセル)
-
16
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
17
エクセルで複数行に一度に改ページを挿入する方法
Excel(エクセル)
-
18
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
19
ヘッダー
Excel(エクセル)
-
20
VBAで文字列を数値に変換したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
Excelで数式が分からないです。...
-
ワークシート間のデータコピー方法
-
エクセルのソート機能について
-
エクセルのリストから欠番を拾...
-
エクセルVBAコピー
-
全ての条件に一致する行をカウ...
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
WEB上の表の列コピー選択方法は?
-
ピボットテーブル→参照が正しく...
-
オートフィルタのリストを順番...
-
メモ帳からエクセルに貼り付け...
-
エクセルに詳しい方、助けてく...
-
Excelピボットテーブルで 総計...
-
エクセルの関数の使い方 繰越...
-
PDFからExcelに変換する時に「...
-
エクセルの列幅
-
jp.msn.comで通常版MSNに戻る
-
デスクトップの画面を元に戻し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
エクセルで作成した縦に長い表...
-
WEB上の表の列コピー選択方法は?
-
【エクセル】行挿入で数式もい...
-
オートフィルタのリストを順番...
-
Excelピボットテーブルで 総計...
-
エクセルVBAで、行コピーを複数...
-
エクセルのリストから欠番を拾...
-
メモ帳からエクセルに貼り付け...
-
Excelの数式のコピーで列移動で...
-
◆エクセルで行単位で重複検索し...
-
エクセルの列幅
-
PDFからExcelに変換する時に「...
-
エクセルの関数の使い方 繰越...
-
ピボットテーブル→参照が正しく...
-
エクセルに詳しい方、助けてく...
-
地番を順に並べたい。
-
エクセルで各ページに同じ文書...
-
エクセル シートのコピーをリ...
-
Excel 表から値をさがして隣の...
おすすめ情報