Question

我需要帮助编写一个循环来查找每个会议中排名第一的团队并将其添加到不同的工作表中。

例如

Team - Conference - Rank
A - WEST - 1 
B - WEST - 2
C - EAST - 3
D - EAST -4
E - NORTH - 5

即使B队和D队的排名较高，也应选择A，C和E级别的比赛。我需要设计一个循环来过滤250个团队和10个会议。

Answer 1

您可以手动执行此操作，复制数据，按（会议，排名）排序，然后删除会议中的重复项。如果有理由使用VBA，这就等同于：

Sub GetFirstByConf()
    With Worksheets.Add
        .name = "FirstTeamByConf"
        Worksheets("Sheet1").UsedRange.Copy .Range("A1")
        .UsedRange.Sort key1:=.Columns("B"), key2:=.Columns("C"), header:=xlYes
        .UsedRange.RemoveDuplicates 2
    End With
End Sub

从排名中创建列表

1 个答案: