
VBA宏代码行选择进行筛选时,会选中便有合并单元格的行,选第3列时连第2列也选中。
如图,执行VBA宏代码,Rows("3:3").SelectSelection.AutoFilter时会连第二行一起选中,A,B,C是合并单元格,我现在想按【K列】出生日...
如图,执行VBA宏代码,
Rows("3:3").Select
Selection.AutoFilter
时会连第二行一起选中,A,B,C是合并单元格,我现在想按【K列】出生日期,升序打印,求解决方法,我试过将合并的单元格分开过,可靠,不过太麻烦,请高手指教一二呀,谢谢! 展开
Rows("3:3").Select
Selection.AutoFilter
时会连第二行一起选中,A,B,C是合并单元格,我现在想按【K列】出生日期,升序打印,求解决方法,我试过将合并的单元格分开过,可靠,不过太麻烦,请高手指教一二呀,谢谢! 展开
4个回答
展开全部
我也遇到了相似的问题
可以这样解决:
两行代码写成一行,即Rows("3:3").AutoFilter
也就是去掉选择的代码,直接筛选
大家可以试试
可以这样解决:
两行代码写成一行,即Rows("3:3").AutoFilter
也就是去掉选择的代码,直接筛选
大家可以试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub K列升序排列()
Dim h As Long
h = ActiveSheet.UsedRange.Rows.Count
Range("A4:F" & h).Select
Selection.Sort Key1:=Range("F4"), Order1:=xlAscending ‘进行升序排列
End Sub
运行代码就好了……
Dim h As Long
h = ActiveSheet.UsedRange.Rows.Count
Range("A4:F" & h).Select
Selection.Sort Key1:=Range("F4"), Order1:=xlAscending ‘进行升序排列
End Sub
运行代码就好了……
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Range("A3:K3").select
Selection.AutoFilter
Selection.AutoFilter
追问
这样选成第二列筛选了,不行呀,不过仍然谢谢!
追答
但不会影响排序啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一个笨办法,即然是用宏,你用宏命令取消合并执行操作再合并过来就得了
追问
这到是可行,不过,格式又得重新设置呀,谢谢!
追答
不需要重新设置
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询