我也遇到了相似的问题
可以这样解决:
两行代码写成一行,即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
运行代码就好了……
Range("A3:K3").select
Selection.AutoFilter
一个笨办法,即然是用宏,你用宏命令取消合并执行操作再合并过来就得了