[已解决]请教高手: 用VBA按行筛选列的数量大怎么解决?

BL123123

各位高手：

    我在网上求得一按行筛选的宏代码，非常好用，但经满负荷测试发现，从IA列以后无法按要求筛选，

我用的是excel2010，我是初学不知是程序设定问题，还是代码参数设置问题，因我需要按行筛选的

列的数量很大，恳请高手指教该如何修改代码，或其他方法。

见截图及附件   谢谢

代码如下：

Private Sub Worksheet_Change(ByVal TargetAs Range)

   If Target.Address = "$A$1" Then zz

End Sub

Sub zz()

   Application.ScreenUpdating = False

   Set d = CreateObject("Scripting.Dictionary")

   Me.UsedRange.Columns.Hidden = False

   For j = 2 To [iv3].End(xlToLeft).Column

       If Cells(3, j) <> "" Then d(Cells(3, j).Value) =""

   Next

   With Range("A1").Validation

       .Delete

       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

           Operator:=xlBetween, Formula1:=Join(d.keys, ",")

   End With

   For j = [iv3].End(xlToLeft).Column To 3 Step -1

       If Cells(3, j) <> "" And Cells(3, j).MergeCells = TrueAnd Cells(3, j).Cells(1, 1) <> [A1] Then

           a = Cells(3, j).MergeArea.Address

           b = Split(a, "$")

           Columns(b(1) & ":" & b(3)).EntireColumn.Hidden = True

       ElseIf Cells(3, j) <> "" And Cells(3, j).MergeCells =False And Cells(3, j).Cells(1, 1) <> [A1] Then

           Columns(j).EntireColumn.Hidden = True

       End If

   Next

   Application.ScreenUpdating = True

End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2016-9-3 08:17

工作簿.rar (78.6 KB, 下载次数: 36)

2016-9-3 08:17 上传

点击文件名下载附件

跳转到最佳答案楼层

BL123123

删除前边一项，后边不能筛选部分减少一项。故此判断可能是筛选有数量限制。不知到底是有数量限制，还是
代码参数设置问题，求高手指教。谢谢

zjdh

你发的啥附件？

BL123123

zjdh 发表于 2016-9-2 20:24
你发的啥附件？

不好意思，刚装的新系统，原来的解压缩不能用，刚才新下载安装的，附件发错了，再重新发一遍，谢谢。

zjdh

工作簿.rar (78.6 KB, 下载次数: 36)

2016-9-3 08:17 上传

点击文件名下载附件

BL123123

zjdh 发表于 2016-9-3 08:17

感谢高手出手帮助，[JY3]   参数修改后果然正常啦，学习啦，再次感谢帮助。