导出筛选表

朱付安

代码运行后，自动在第一行生成筛选按钮，根据用户的筛选情况，新建一个工作表用于存放导出的筛选结果，以A列的月份重命名工作表，谢谢

小凡、、、

原始数据没有表头直接从a1开始？生成新的工作簿.xlsx文件还是在文件里新增sheet

朱付安

小凡、、、 发表于 2024-8-2 20:14
原始数据没有表头直接从a1开始？生成新的工作簿.xlsx文件还是在文件里新增sheet

新建一个shett老师，那就从a1开始吧，回来我在调整

quqiyuan

分开两段写了代码，仅供参考。。。

quqiyuan

代码如下。。。
Sub 下拉箭头()
    With Sheet1
        If .AutoFilterMode = True Then .AutoFilterMode = False
        .[a1].AutoFilter
    End With
End Sub

Sub 生成新工作表()
    With Sheet1
        If .AutoFilterMode Then
            r = .Cells(.Rows.Count, 1).End(xlUp).Row
            For i = 2 To r
                If .Rows(i).Hidden Then
                    Exit For
                End If
            Next
        End If
         With Worksheets.Add(after:=Sheet1)
            Intersect(Sheet1.Columns("a:b"), Sheet1.UsedRange).SpecialCells(12).Copy .[a1]
            .Name = .[a2]
         End With
    End With
End Sub

朱付安

quqiyuan 发表于 2024-8-2 21:01
代码如下。。。
Sub 下拉箭头()
    With Sheet1

老师这段代码能合而为一吗

quqiyuan

朱付安 发表于 2024-8-3 06:21
老师这段代码能合而为一吗

由于你需要筛选，并且筛选后不能触发工作表事件，所以没办法自动运行。合并为一个，还真的不行哦。。。

lsc900707

直接按A列拆分不好吗？