批量删除含有指定关键词的行——EXCEL 宏
Sub QQDelData() Dim i&, j&, Jm&, Arr, Brr, Crr, TM TM = Timer Arr = Range([表A!A2], [表A!A65536].End(xlUp)) Brr = Range([表B!A2], [表B!A65536].End(xlUp)) ReDim Crr(1 To UBound(Arr), 0) For i = 1 To U
原创
2016-12-19 19:09:17 ·
12579 阅读 ·
0 评论