重复代码，循环列直到空白单元格
我有一个130列和65行的表，我select一列，filter，打印，然后隐藏该列，然后再进入下一个迭代。
代码必须在完成最后一列时停止。
我的想法是，我应该以更合乎逻辑的方式进行计划，并有一些代码参考filter和打印要求。
尽pipe如此，这是一个部分/提取。
' Select 5th customer, 9th column (field), filter to exclude blanks, 'select a print range with column offset from A1 and dynamic row range ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:= _ "<>" ' selects "blank" Range(Range("A1"), Range("A1").Offset(0, 8)).Select ' selects A1 to 9th column. Range(Selection, Selection.End(xlDown)).Select 'selects dynamic rectangle A1 to G1 down, defined print selection Selection.PrintOut Copies:=1 'print above defined print selection ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9 ' filters on "select all" Columns("I:I").Select Selection.EntireColumn.Hidden = True Range("Table1[[#Headers],[Material / SITE]]").Select ' Select 6th customer, 10th column (field), filter to exclude blanks, 'select a print range with column offset from A1 and dynamic row range ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10, Criteria1:= _ "<>" ' selects "blank" Range(Range("A1"), Range("A1").Offset(0, 9)).Select ' selects A1 to 10th column. Range(Selection, Selection.End(xlDown)).Select 'selects dynamic rectangle A1 to G1 down, defined print selection Selection.PrintOut Copies:=1 'print above defined print selection ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10 ' filters on "select all" Columns("j:j").Select Selection.EntireColumn.Hidden = True Range("Table1[[#Headers],[Material / SITE]]").Select ' Select 7th customer, 11th column (field), filter to exclude blanks, 'select a print range with column offset from A1 and dynamic row range ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11, Criteria1:= _ "<>" ' selects "blank" Range(Range("A1"), Range("A1").Offset(0, 10)).Select ' selects A1 to 11th column. Range(Selection, Selection.End(xlDown)).Select 'selects dynamic rectangle A1 to G1 down, defined print selection Selection.PrintOut Copies:=1 'print above defined print selection ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=11 ' filters on "select all" Columns("k:k").Select Selection.EntireColumn.Hidden = True Range("Table1[[#Headers],[Material / SITE]]").Select ' Select 8th customer, 12th column (field), filter to exclude blanks, 'select a print range with column offset from A1 and dynamic row range ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12, Criteria1:= _ "<>" ' selects "blank" Range(Range("A1"), Range("A1").Offset(0, 11)).Select ' selects A1 to 12th column. Range(Selection, Selection.End(xlDown)).Select 'selects dynamic rectangle A1 to G1 down, defined print selection Selection.PrintOut Copies:=1 'print above defined print selection ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12 ' filters on "select all" Columns("l:l").Select Selection.EntireColumn.Hidden = True Range("Table1[[#Headers],[Material / SITE]]").Select 你需要使用一个计数器循环遍历列，那么你只需要一段代码：
注意：你需要计数器从第一列到第130列（不是1到130）
伪代码：
For counter = 1 to 130 (number of customers) ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=counter, Criteria1:= _ "<>" ' selects "blank" Range(Range("A1"), Range("A1").Offset(0, counter-1)).Select ' selects A1 to 11th column. Range(Selection, Selection.End(xlDown)).Select 'selects dynamic rectangle A1 to G1 down, defined print selection Selection.PrintOut Copies:=1 'print above defined print selection ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=counter ' filters on "select all" Columns("counter:counter").Select Selection.EntireColumn.Hidden = True Range("Table1[[#Headers],[Material / SITE]]").Select Next counter