錄製宏--排序。想對C列到L列每列單獨做單元格條件格式。錄制的宏只能進行單個列的排序

yuanqp888

錄製宏--排序。想對C列到L列每列單獨做單元格條件格式。錄制的宏只能進行單個列的排序。求助。謝謝

Sub 排序()
'
' 排序 宏
' 前70名排序
'

'
    ActiveWindow.SmallScroll Down:=90
    Range("A150:M161").Select
    Range("A161").Activate
    ActiveWindow.SmallScroll Down:=102
    Range("A1:M262").Select
    Range("A262").Activate
    ActiveWorkbook.Worksheets("2014年AMD客戶分析").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("2014年AMD客戶分析").Sort.SortFields.Add Key:=Range( _
        "L1:L262"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("2014年AMD客戶分析").Sort
        .SetRange Range("A1:L262")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=-186
    Range("L2:L70").Select
    Range("L70").Activate
    Selection.FormatConditions.AddColorScale ColorScaleType:=3
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
    Range("C8").Select
End Sub