这两句如何用 "If" "THen "连在一起执行

838225419

fenghuaxue 发表于 2023-7-7 11:25
怎么解决的

[a3:ae3].Clear
If [c4] <> "" Then [aa3] = ">=" & [c4]
If [c5] <> "" Then [ab3] = "<=" & [c5]
If [p4] <> "" Then [ad3] = ">=" & [p4]
If [p5] <> "" Then [ae3] = "<=" & [p5]
If [e4] <> "" Then [f3] = [e4]
If [e5] <> "" Then [c3] = [e5]
If [g4] <> "" Then [d3] = [g4]
If [g5] <> "" Then [e3] = [g5]
x = Sheet1.Range("b65536").End(xlUp).Row '最后行数
If [c4] <> "" And [c5] <> "" Then
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7]  '高级筛选最简代码
Else
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3], [b7:u7] '高级筛选最简代码
End If

838225419

fenghuaxue 发表于 2023-7-7 11:25
怎么解决的

用三楼的方法解决的

沈默00

这个是基础，和写函数是一样，符合if条件 ，then 执行。。。，