Sub NewCXLWord文档下载推荐.docx

Sub NewCXLWord文档下载推荐.docx

《Sub NewCXLWord文档下载推荐.docx》由会员分享，可在线阅读，更多相关《Sub NewCXLWord文档下载推荐.docx（8页珍藏版）》请在冰豆网上搜索。

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