![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
添付写真のように、B列にフィルターをかけて、
みかんだけのフィルターで印刷
りんごだけのフィルターで印刷
以下繰り返し
と、フィルター上で選べるものを全て自動で印刷するようなマクロの作り方を教えていただきました。
このB列指定のフィルターを
C列のフィルターに変更して、
長野だけのフィルターで印刷
山梨だけのフィルターで印刷
以下繰り返し
と、するにはどこを直せばよろしいでしょうか?
数百件あるので、教えていただけると助かります。
どうぞ宜しくお願い致します。
マクロは以下です。
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("a")
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
![「マクロの修正方法の質問です。」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/2/989646_65306fd590b3f/M.jpg)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) ワークシート内 検索 HITしたら すべて選択する 6 2021/11/11 22:50
- Visual Basic(VBA) 超難 日付に対するクロス集計 7 2021/12/06 20:56
- Visual Basic(VBA) シートごとに 個数と集計 2 2021/10/25 22:00
- PowerPoint(パワーポイント) エクセルのマクロ設定について教えてください。 2 2021/10/29 11:36
- Excel(エクセル) Rangeメソッドは失敗しました。globalオブジェクトについて 6 2021/11/21 21:54
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Javaから直接プリンターへ印刷...
-
vbaでPDFファイルが印刷されない
-
VB6の印刷でメモリリーク
-
PDFファイルを印刷し終了するには
-
マクロの修正方法の質問です。
-
ActiveReportsを使って[印刷ダ...
-
ActiveReportsの帳票印刷について
-
インターネットで表示させたペ...
-
2回以上PDFをコピーや印刷がで...
-
VB2008で0ページの印刷ジョブを...
-
256bitを95種類で表現すると何...
-
印刷ダイアログを表示させない方法
-
Excel VBA オブジェクトが必要...
-
VBAでエクセルからワードへの差...
-
印刷画面が表示されない
-
VBからのプリンタ制御について
-
エクセルの入力履歴を知りたい
-
ACCESSで設定した帳票の用紙サ...
-
スプーラを使わずに印刷する
-
エクセル VBA 印刷モジュール
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
プリンターを指定して印刷するには
-
vbaでPDFファイルが印刷されない
-
VBAで印刷スプール終了の判定を...
-
PDFファイルを印刷し終了するには
-
VBからプリンタに出力する時に...
-
ACCESSで設定した帳票の用紙サ...
-
印刷ダイアログを表示させたくない
-
VBscriptでPDFファイルを直接印...
-
ActiveReportsを使って[印刷ダ...
-
VBAで印刷の成功判定
-
Accessフォームで全レコードを...
-
VB.NET+ActiveReports で印刷...
-
A4の2枚をA3の1枚にする編集方法?
-
Eclipseを使ってソースを印刷し...
-
EXCELファイルの複数ダウンロー...
-
VBでExcel印刷する時のプリンタ...
-
Javaから直接プリンターへ印刷...
-
VBAにて指定したセルをプルダウ...
おすすめ情報