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

Question

希望把sheet1的A列的数据进行删除重复值和升序后, 保留格式复制到sheet2里的A列里粘贴. 并要求sheet1里的A列保持原样.如何通过VBA实现

Answer 1

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