比较和合并工作簿

爱疯

excel中如何快速一键比较和合并工作簿
https://jingyan.baidu.com/article/a378c960eb8619b3282830cd.html


照着去做了，可添加的这个图标仍是灰的，点不了，没法看出效果。
请问：怎样能实现上帖功能的效果？谢谢

lisachen

我试了一下，也是灰色的。说实话，真没用过

云龙

sorry

爱疯

云龙 发表于 2019-1-24 17:36
sorry

Sub test()
    Dim i
    Application.ScreenUpdating = False

    If Not Range("a:a").Find("**??:??:??*") Is Nothing Then
        i = Range("a65536").End(xlUp).Row
        Range("A1:A" & i).AutoFilter Field:=1, Criteria1:="=**??:??:??*"
        Rows("2:" & i).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        ActiveCell.AutoFilter
    End If

End Sub

云龙

谢谢超版，好久没来，这才看到有新手领积分的帖子，再次感谢