マクロの修正方法の質問です。

添付写真のように、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

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/10/19 13:05

こんにちは

＞For Each cell In filterRange.Columns(2).Cells
＞filterRange.AutoFilter Field:=2, Criteria1:=item
で、2列目（＝Ｂ列）を指定しているのを、3列目に変えればできませんか？

この回答へのお礼

出来ました！　ありがとうございます。

お礼日時：2023/10/20 08:27