【发布时间】:2018-11-05 18:51:11
【问题描述】:
要检查下 ActiveSheet.Range("$A$1:$O$1583").AutoFilter Field:=7, Criteria1:="=", range $O$1583" 指的是什么?
sub Filter
‘Remove empty cell in column G,K,L’
Range("A2").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Range("B2").Select
ActiveSheet.Range("$A$1:$O$1583").AutoFilter Field:=7, Criteria1:="="
ActiveSheet.Range("$A$1:$O$1583").AutoFilter Field:=11, Criteria1:="="
ActiveSheet.Range("$A$1:$O$1583").AutoFilter Field:=12, Criteria1:="="
Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
End sub
【问题讨论】: