Sub 记录筛选条件()
Const n = 2
Do
i = i + 1
If Cells(i, 1).EntireRow.Hidden = False Then
K = K + 1
End If
Loop Until K = 2
Cells(1, "g") = Cells(1, "g") & "," & Cells(i, "a")
End Sub
将每次筛选条件，记录在G1单元格，用逗号分开。
第1行为标题，筛选条件在A列
可以的，具体要看需求来定制代码
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024