Сортировка данных с использованием VBA - PullRequest
Новая
       7

Сортировка данных с использованием VBA

0 голосов
/ 10 февраля 2020 
Sub Macro4M()

    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add(Range("A2:A20"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _
        255, 0)
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range("A1:P20")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Я пытаюсь отсортировать строки и столбцы, где данных не существует, но в приведенной выше операции сортировки кода применяется только из строки A2: A20 и столбца A1: P20. Мои критерии: я хочу применить сортировку для Вся строка и столбец на рабочем листе Может кто-нибудь, пожалуйста, помогите мне с этим

1 Ответ

0 голосов
/ 10 февраля 2020 
Sub Macro4M()

ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add(Range("A:A"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
With ActiveWorkbook.Worksheets("Sheet2").Sort
    .SetRange Range("A:P")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
...