|
|
此文章由 WACT 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 WACT 所有！转贴必须注明作者、出处和本声明，并保持内容完整
Excel Macro 语句求助 谢谢
-------------------------------------------------------
Sub Macro5()
'
' Macro5 Macro
'
'
Sheets("Consol Data - Costing 1").Select
Columns("A:N").Select
Selection.Copy
Sheets("Working sheet - Costing Data 1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A8").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Working sheet - Costing Data 1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Working sheet - Costing Data 1").Sort.SortFields. _
Add Key:=Range("G9:G7762"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Working sheet - Costing Data 1").Sort.SortFields. _
Add Key:=Range("A9:A7762"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Working sheet - Costing Data 1").Sort
.SetRange Range("A8:N7762")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$A$8 N$7762").RemoveDuplicates Columns:=1, Header:= _
xlYes
Sheets(" IVOT").Select
Range("e8").Select
End Sub
|
|
圣诞传统菜------红糖橙香烤烟腿，蓝莓橙子tea cake (2011-12-17) chesecake 
发表于 2015-3-16 16:54
