VBA - 检查单元格值是否在列中

Question

我在 Excel 上有 2 张纸。

表 1 包含约 500 所大学的列表，其全球排名在 A 列，大学名称在 B 列

表 2 在 A 列中包含个人姓名列表，在 B 列中包含他们的大学，在 C 列中包含他们的考试成绩。

我想写一个 VBA 代码，如果个人的大学在前 50 名中（在表 1，第 1 行到第 50 行），则检查表 2。 如果是，我会将他们在 C 列中的分数乘以 1.15。

谢谢大家！

Answer 1

试试这个（我没有现场签到）

Sub checkUniversity()
Dim shInd As Worksheet
Dim rgInd As Range


Set shInd = Worksheets("Individuals")  ' put here name of your sheet

rgInd = shInd.Range("a1").CurrentRegion
lastR = rgInd.Rows.Count

With shInd
    For j = 2 To lastR ' assuming that row1 is header, and data starts in row2
    
        .Cells(j, 3).Value = .Cells(j, 3).Value * isTop50(.Cells(j, 2).Value)
    Next j
End With
End Sub

Function isTop50(university As String)
Dim shUniver As Worksheet
Set shUniver = Worksheets("universities")  'put here name of your sheet with universities
isTop50 = 1

For i = 2 To 51  '('2 is first row - 1st university, 51 row of 50th university)
    If shUniver.Cells(i, 2).Value = university Then
        isTop50 = 1.15
        Exit Function
    End If
Next i
End Function

短时间内：为什么你想用 vba 做这个，而你只有正常的功能，你可以在表格个人的 D 列中使用

=if(isna(vlookup(B2, [sheetUniversities]!B2:B51,1,0)), C2, C2*1.15)