Ранг на фильтрованной ячейке

Question

Огромное спасибо всем пользователям переполнения стека! Я многому научился

У меня есть одна проблема с рангом в отфильтрованной ячейке в группе. Ниже то, что я хочу. Я хочу оценить их после фильтрации. Есть ли какой-нибудь код, который я могу использовать для ранжирования их при фильтрации? оценивать только по видимым ячейкам Потому что я хочу видеть звание после того, как я отфильтровал с Требованием

Заранее большое спасибо

Answer 1

Решение 1 Попробуйте, это должно работать, если указанная выше таблица начинается с "A1"

Sub Filter_AND_Sort()

    ' Filters on the value "TRUE" in the fourth column (field=4)
    ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=4, Criteria1:="TRUE"

    ' In this newely created filter we are sorting now
    ' First remove any possible previous sorting
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ' New sorting criteria are entered, sorting column C => ("C1:C15")
    ' sorting on value lowest on top, highest below => SortOn:=xlSortOnValues, Order:=xlAscending
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("C1:C15"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

    ' Now we apply these new sorting criteria on the full table
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub