- ©«¤l
- 913
- ¥DÃD
- 150
- ºëµØ
- 0
- ¿n¤À
- 1089
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-28
- ³Ì«áµn¿ý
- 2023-7-19
|
·PÁ¦U¦ì¥ý¶iªº¦^ÂÐ,
§Ú¨Ï¥Îªº¥¨¶°³£¬O¥Î¿ý»sªº,©Ò¥H¦U¦ì¼gµ¹§Úªº,§Ú¯uªº¬Ý¤£À´,¤£¹L§Ú¨Ì"oobird"±Ð§Úªº¤èªk,¦b¥¨¶°¤¤¤£n«a¤W¤u§@ªíªº¦WºÙ,©Ò¥H§Ú±N¨ä¤¤¤@Ó¤ñ¸ûµuªº¥¨¶°¥ý±N©Ò¦³¤u§@ªí¦WºÙ¥h°£«á°õ¦æ¥¨¶°,¥i¬O¥X²{¹ï¸ÜàF"½sĶ¿ù»~:§ä¤£¨ì¤èªk©Î¸ê®Æ¦¨û"§Ú¤£¤F¸Ñ¥¦ªº·N«ä¬O¤°»ò,¤£¹L¦³½bÀY«üµÛ¥¨¶°ªº²Ä¤@¦æ,Åã¥Ü¦³°ÝÃD,¥Ñ©ó§Ú¤§«e°Ýªº°ÝÃD¥u¬OºI¨ú¤@¤p¬q¥¨¶°¤º®e,¦Ó¤j®a¦^Âе¹§Úªº,§Ú¤S¤£·|®M¥Î,©Ò¥H§Ú±N§¹¾ãªº¥¨¶°¼g©ó¤U,§Æ±æ¼Ó¤W¦³¦^Âе¹§Úªº¦UºØ¤è¦¡³£À°§Ú®M¤J§¹¾ãªº¥¨¶°¤¤,§Ú¦A¹E¤@¸Õ¸Õ¬Ýµ²ªG¦p¦ó?¤£¬O§Ú°½Ãi,§Ú¯uªº¬Ý¤£À´.
Sub sorting_chart()
'
' sorting_chart ¥¨¶°
'
'
Windows("2011 BCMart Chart.xls").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U4").Select
ActiveWorkbook.Worksheets.Sort.SortFields.Clear
ActiveWorkbook.Worksheets.Sort.SortFields.Add Key:=Range("U5:U3000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets.Sort.SortFields.Add Key:=Range("Q53000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets.Sort.SortFields.Add Key:=Range("A5:A3000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets.Sort
.SetRange Range("A4:AA3000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.SaveAs Filename:= _
":\BCM\2011 BCMart Chart\2011 BCMart Chart-sorted-2011.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub |
|