No.2ベストアンサー
- 回答日時:
Sub PrintFilteredData()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim filterRange As Range
Dim uniqueItems As Collection
Dim item As Variant
Set ws = ThisWorkbook.Sheets("シート名") ' "シート名" を自分のシート名に変更してください
Set rng = ws.Range("A1").CurrentRegion
Set filterRange = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count)
Set uniqueItems = New Collection
On Error Resume Next
For Each cell In filterRange.Columns(2).Cells
If cell.Value <> "" Then
uniqueItems.Add cell.Value, CStr(cell.Value)
End If
Next cell
On Error GoTo 0
For Each item In uniqueItems
ws.AutoFilterMode = False
filterRange.AutoFilter Field:=2, Criteria1:=item
' ここに印刷のコードを挿入してください
' 例えば、次の行はアクティブなウィンドウでの印刷を行います
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ws.AutoFilterMode = False
Next item
End Sub
No.1
- 回答日時:
こんばんは
ループ(=繰り返し処理)の概念と、最終行の求め方くらいをご存じなら、あとは「マクロの記録」で6~7割はできますので、それを修正すれば可能です。
「~~くらいをご存じなら」についても、検索すれば沢山の情報が見つかると思います。
以下に、簡単な考え方と手順の例を。
フィルター対象の項目の全種類を調べるには、B列の値の「重複を除いた項目一覧」が必要になります。
「マクロの記録」を利用して、
1-1)適当な空き列を作業列にして、B列をコピペ
1-2)作業列で「重複を削除」を行う
これにより、上記の一覧を作成できます。
2-1)例えば「みかん」でフィルターをかけて印刷する
2-2)フィルターを解除
してみると、「みかん」の場合の「1回分の印刷処理」を作成できます。
この「1回分の印刷処理」の「みかん」の部分を、「項目一覧」のリストの順に入れ替えて処理するように修正すれば、お望みの内容のマクロを作成可能と思います。
※ 「そんなかったるいことやってられるか!」という場合は、質問者様の代わりに作業をしてくれる方が、どなたか現れるのをお待ちください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Word(ワード) Word差し込み印刷で、ハガキ宛名面作成設定後 文字データが見えない 2 2021/11/20 23:47
- Visual Basic(VBA) VBA、AシートとBシートを別々のプリンタで印刷したい。 1 2021/11/27 09:45
- 訴訟・裁判 【弁護士】弁護士は紙の書類のコピーをコピー機で印刷してはいけないという法律があるので 2 2021/11/17 21:38
- Excel(エクセル) 1シートを数十部印刷した際に印刷枚数も印字したい 1 2021/10/18 11:58
- 美術・アート ダイソーでフォトキーホルダーを買って手作りのキーホルダーを作ろうとしているのですが、家のカラープリン 3 2021/10/20 17:07
- プリンタ・スキャナー 複合機の再印刷について。 3 2021/12/28 14:47
- プリンタ・スキャナー パソコンとプリンターを接続したいのですが上手くいきません。 パソコンはNECのノート型。 プリンター 6 2021/12/28 19:15
- Excel(エクセル) オプションボタンを別シートに連動 1 2021/10/22 16:20
- その他(Microsoft Office) エクセルをPDFに変換できません 1 2021/11/07 19:29
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セル内の数式をVBAで書くと
Excel(エクセル)
-
算数、数学解りません。 足し、引き、掛け、割り算程度しか出来なくても、Excel覚えられますか?
Excel(エクセル)
-
列の総当たりチェックの方法
Excel(エクセル)
-
-
4
この場合に使用するエクセルの関数を教えてください。
Excel(エクセル)
-
5
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
6
エクセルの数式で教えてください。
Excel(エクセル)
-
7
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
8
エクセルのハイパーリンクで質問です。
Excel(エクセル)
-
9
ノートPCでExcelを一部見せない状態で外部モニターに出力したい
Excel(エクセル)
-
10
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
-
11
エクセルで リンクが切れない状態で文字を入れたい
Excel(エクセル)
-
12
[大至急!]ExcelSheetFreeの使い方がわかりません
Excel(エクセル)
-
13
Excelについて質問です。 タブキーを押すと編集しているセルが右隣に移りますが、私はタブキーを押し
Excel(エクセル)
-
14
エクセルの計算式で教えてほしいことがあります 5000+1500✖️1.1✖️4 その後100のくら
Excel(エクセル)
-
15
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
16
エクセルのマクロについて教えてください。 マクロを実行すると コピー先のフォルダ名を検索して、条件に
Excel(エクセル)
-
17
VLOOKUPを使って画像のようなExcelファイル①を別のExcelファイル②に、その人ごとに金額
Excel(エクセル)
-
18
エクセル セルに文字を入力したら別のセルに入力した時間が表示されるようにしたい
Excel(エクセル)
-
19
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
Excel(エクセル)
-
20
Excelのデータの入力規則が薄くなって クリック出来ません。 なぜでしょうか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PENTAX Super Takumar 55mm f1....
-
安心フィルターについての質問...
-
メールソフトサンダーバードの...
-
エクセル質問「フィルターをか...
-
ノートンファミリーすり抜け
-
タバコ火つける方間違ったんで...
-
安心フィルターの位置情報がば...
-
スプレッドシートでフィルター...
-
浄水器の使用期限
-
カメラ初心者です。 ミラーレス...
-
オリンパス【TRIP35】レンズキ...
-
Excelで ピボット上のフィルタ...
-
あんしんフィルターの制限時間...
-
auの安心フィルターを掛けられ...
-
CPLフルター(円偏光)で解像度...
-
リフレクションフィルターを自...
-
Excelで任意の塗りつぶし色の数...
-
フィルター設定方法が分からん
-
オリンパスペンEEのフィルタ...
-
レンズフィルターとフードのサ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スプレッドシートでフィルター...
-
メールソフトサンダーバードの...
-
表の中でフィルターを掛けた時...
-
カメラ初心者です。 ミラーレス...
-
Excelで任意の塗りつぶし色の数...
-
安心フィルターについての質問...
-
auの安心フィルターを掛けられ...
-
エクセル質問「フィルターをか...
-
thunderbirdのメッセージフィル...
-
浄水器の使用期限
-
フィルターとフードを付ける順...
-
PENTAX Super Takumar 55mm f1....
-
VBAにてオートフィルターの条件...
-
Web ページ (フィルター後)で...
-
タバコ火つける方間違ったんで...
-
Excelで ピボット上のフィルタ...
-
オリンパス【TRIP35】レンズキ...
-
Reaperで徐々にフィルターをか...
-
UQモバイルの安心フィルター(中...
-
Excel オートフィルタ オプショ...
おすすめ情報
どうもありがとうございます。うまくできました。
もう一つ教えていただきたいのですが、
今回はB2のフィルターを全て印刷しましたが、
例えば、C2のフィルターを全て印刷したい場合は、
このマクロのどこを直せばよろしいでしょうか?
恐れ入りますが、ご教示のほど宜しくお願い致します。