オートフィルターをかけ得意先項目のみ全て連続印刷

質問

コード、得意先、銀額等々列がありフィルターをかけて、得意先を選択をして印刷をしていますが時間短縮したく自動で印刷したいのですがマクロ初心者にはよくわからず範囲をどのように設定したらいいかご教示お願いします。

回答No.1

watabe007 · ベストアンサー

抽出した範囲をSpecialCells メソッドを使って可視セルを絞れば良いでしょうSub Test()
　　Dim FR As Range, c As Range, i As Long
　　'フィルター範囲を取得
　　Set FR = ActiveSheet.AutoFilter.Range
　　'1行目の項目を省いた範囲を取得
　　Set FR = FR.Offset(1).Resize(FR.Rows.Count - 1)
　　'FRの可視セルを行単位でループ
　　For Each c In FR.SpecialCells(xlCellTypeVisible).Rows
　　　　i = i + 1
　　　　c.Select
　　　　MsgBox i & "件目選択"
　　Next
End Sub