高级筛选的VBA代码优化

银河战舰007

各位论坛的大佬们，想请教一个VBA代码优化的问题。
需求是：把【数据源】中的数据通过VBA筛选到【高级筛选】表中，现在已经通过录制宏实现，但是还存在一部分问题。



1.选择“高级筛选”宏选择的数据源区域是固定的范围，在实际的工作中，这是一个动态的范围，请问这个代码需要怎么修改；
2.选择“清除”宏的区域也是固定的，实际工作中也是需要一个动态范围（需要清除第二行后面的数据）；
3.如果再另外做一个“追加数据”宏，从【数据源】表中筛选数据，根据【高级筛选】表的表头，数据往【高级筛选】表中有数据的后面追加数据，又改怎么写这个代码。

Qs18

Sub 清除()

    Range("A2:O100000").ClearContents
End Sub

Sub test()
    Dim k
    k = Sheets("数据源").Cells(Rows.Count, "AC").End(xlUp).Row
    Sheets("数据源").Range("A1:AC" & k).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1:O1"), Unique:=False
End Sub

longwin

参考一下，供入门学习参考

银河战舰007

longwin 发表于 2024-5-12 16:13
参考一下，供入门学习参考

感谢，不过这样有提取数据有点慢，如果我有10万加数据，估计要执行很久了

longwin

银河战舰007 发表于 2024-5-12 16:48
感谢，不过这样有提取数据有点慢，如果我有10万加数据，估计要执行很久了

数据量大可以用其它方法，我看你是直接录制的宏，所以写的尽量简单一点。

银河战舰007

Qs18 发表于 2024-5-12 15:32
Sub 清除()

    Range("A2:O100000").ClearContents

【数据源】可能有时候并非是AC列结束的，肯能是AS列，或者其他列数，复制到【高级筛选】表表头，也有可能不是O列结束，可能是10列，20列，应该怎么调整获取动态的列列数，

Qs18

银河战舰007 发表于 2024-5-12 17:09
【数据源】可能有时候并非是AC列结束的，肯能是AS列，或者其他列数，复制到【高级筛选】表表头，也有可能 ...

这个好办您写一个尽量的的范围，就可以了

Qs18

银河战舰007 发表于 2024-5-12 17:09
【数据源】可能有时候并非是AC列结束的，肯能是AS列，或者其他列数，复制到【高级筛选】表表头，也有可能 ...

做成动态的也可以的

Qs18

Sub 清除()
    Dim k
    Dim c
    c = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Column
    k = Sheet2.Cells(Rows.Count, c).End(xlUp).Row
    If k = 1 Then Exit Sub
    Range([a2], Cells(k, c)).ClearContents
End Sub
Sub test()
    Dim k, str
    Dim rng As Range
    Set rng = Sheet1.Cells(1, Columns.Count).End(xlToLeft)
    str = rng.Address
    ' 查找第一个$的位置
    startPos = InStr(str, "$") + 1
    ' 查找第二个$的位置
    endPos = InStr(startPos, str, "$")
    ' 使用Mid提取两个$之间的字符串
    Dim X As String
    X = Mid(str, startPos, endPos - startPos)
    k = Sheets("数据源").Cells(Rows.Count, X).End(xlUp).Row
    Sheets("数据源").Range("A1:" & X & k).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1:O1"), Unique:=False
End Sub

kittli

试一下！！！！！！