Sub NewCXLWord文档下载推荐.docx
《Sub NewCXLWord文档下载推荐.docx》由会员分享,可在线阅读,更多相关《Sub NewCXLWord文档下载推荐.docx(8页珍藏版)》请在冰豆网上搜索。
![Sub NewCXLWord文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2022-11/15/550e5b1c-4c92-41fe-9589-f813cb5ce312/550e5b1c-4c92-41fe-9589-f813cb5ce3121.gif)
SetChF=Workbooks(fname).Sheets(forms)
Range(Cells(2,1),Cells(60000,200)).SortKey1:
=Range("
D1"
)
Columns("
X:
X"
).InsertShift:
=xlToRight
Range("
X2:
&
[Q1048576].End(xlUp).Row).FormulaR1C1="
=RC[-1]/RC[-2]"
Selection.Copy
Selection.PasteSpecialPaste:
=xlPasteValues
[Q1048576].End(xlUp).Row).NumberFormatLocal="
0%"
Rows("
1:
1"
).AutoFilter
Selection.AutoFilterField:
=11,Criteria1:
="
=HARDLINES"
Operator:
=xlOr,_
Criteria2:
=HOME"
=24,Criteria1:
>
=80%"
=xlAnd
Range(Selection,Selection.End(xlDown)).Select
Worksheets.Add
ActiveSheet.Name="
80%"
A1"
ActiveSheet.Paste
Sheets("
).Copy
Sheets(Format(Date-1,"
Rows
(1).Select
2:
2"
Selection.EntireRow.Delete
=90%"
Windows("
Book1"
90%"
=1,Criteria1:
=21"
21"
A:
A"
)="
COMMENT"
A2:
[R1048576].End(xlUp).Row).Value="
Cxl80%rcvd"
(cwa"
Format(Date,"
mm/dd)"
Cxl90%rcvd"
Cxl21days"
BI"
[R1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
r1=[Q1048576].End(xlUp).Row
a"
r1+1).Select
Worksheets("
ALL"
ActiveWindow.SelectedSheets.Delete
R:
R"
).Cut
AU:
AU"
B:
B"
=xlToLeft
D:
H"
NAME"
E1"
COMPLETE"
F1"
Cancellationlevel"
A1:
[A1048576].End(xlUp).Row).Copy
advancefilter
Advan"
Application.CutCopyMode=False
[A1048576].End(xlUp).Row).NumberFormatLocal="
0000000000"
[A1048576].End(xlUp).Row).AdvancedFilterAction:
=xlFilterInPlace,Unique:
=True
ActiveWorkbook.Save
Sheets.Add.Name="
POs"
Range(Cells(2,1),Cells(60000,2)).SortKey1:
B2:
[A1048576].End(xlUp).Row)="
=TEXT(RC[-1],"
"
)"
C2:
C"
&
RC[-1]&
"
EndSub
SubNewCXL2()
ActiveSheet.Name="
Lookup"
Columns("
C:
G"
M:
M"
G:
Y:
Y"
Y2:
[Q1048576].End(xlUp).R