Vab(emailsencond).docVIP

  • 7
  • 0
  • 约 15页
  • 2016-12-11 发布于重庆
  • 举报
Vab(email sencod) Dim curSheet As Object Dim Crow, Ccol, i As Long Dim Vendor As String Dim UPCcol, VendorCol, VendornbrCol As IntegerSub emailtwo() Application.DisplayAlerts = False Application.ScreenUpdating = FalseRange(Cells(2, 1), Cells(80000, 256)).Sort Key1:=Range(D1) Range(Cells(2, 1), Cells(80000, 256)).Sort Key1:=Range(T1)Cells.Select Selection.AutoFilter Field:=37, Criteria1:=r = [C1048576].End(xlUp).RowIf r 1 ThenRange(D2:D [C1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).SelectSelection.EntireRow.DeleteEnd If If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAl

文档评论(0)

1亿VIP精品文档

相关文档