¥¨¶°¡A¤£¦P¤u§@ªí°õ¦æ·|²£¥Í°ÝÃD¡A¥i§_±N¤u§@ªí¦WºÙ²¤¹L°õ¦æ

wanliton

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("I6").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 1
    Range("A1").Select
    Selection.Insert Shift:=xlDown
    Columns("F:M").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    ActiveWorkbook.Worksheets("1230").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1230").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1230").Sort
        .SetRange Range("A2:E449")

wanliton

§x´b¤w¤[¡AÁÂÁ¸ÑÁ¼¡A´«¦¨ ActiveSheet§Y¥i°õ¦æ