用VBA把一列数据筛选保留格式复制到另一列中,详见下边描述.

发布网友发布时间：2022-05-25 17:11

共1个回答

热心网友时间：2023-11-23 22:22

Sub Demo()
    With Sheet1.Columns(1)
        .RemoveDuplicates Array(1)
        .Sort .Cells(1, 1), xlAscending
        .Copy Sheet2.Cells(1, 1)
    End With
End Sub

运行效果

追问谢谢, 但是我还希望Sheet1的内容和格式都不变. 这个如何实现.

追答Sub Demo()
    Sheet1.Columns(1).Copy Sheet2.Cells(1, 1)

    With Sheet2.Columns(1)
        .RemoveDuplicates Array(1)
        .Sort .Cells(1, 1), xlAscending
    End With
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com