特定の列に特定の値を持つ行のみを印刷するマクロ

Question

私は列A〜Dに情報が入っているファイルを持っています。 75行目までのすべての行が満たされます。その長さは年を経るにつれて変化します。ただし、列Bと列Cにすべてのデータが含まれているわけではありません。また、第1行の列A-Dはマージされ、現在はタイトルとして機能している。

質問：

私が「1」から「0」を持つものにそれらをソートしますマクロを持って列D.に「1」を持つすべての行を印刷したいです。 "1"が最初にリストされます。列Dに "1"の行だけを印刷するにはどうすればよいですか？

Answer 1

AutoFilterコマンドを使用すると、印刷前にそのデータをフィルタリングできます。列はDがAutoFilter選択肢として表示されませんが、

ActiveSheet.Range("$A$1:$G$7").AutoFilter Field:=4, Criteria1:="0" 

を実行すると、まだ

を実行し、列D（あなたレンジなど、ソートする必要があるかもしれません）

そして、印刷後にフィルタします

ActiveSheet.Range("$A$1:$G$7").AutoFilter 

は、自動フィルタを削除します。