Excel 请问如何用vba记录筛选的条件
2个回答
展开全部
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列
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列
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
