vba excel比较值

Question

我想知道是否有人可以帮助我完成 vba 代码。我想做的是比较两个不同列中的两个值（Correct、Compare）。如果它们相等，则应将第三列 (Rank) 中的值复制到第四列 (Output)。 “Compare组”是39行“Rank组”是39行“Correct组”是13行“Output" 是 13 行所以第一个循环是 Compare (row 2-40), Rank (row 2-40), Correct （第 2-14 行），输出（第 2-14 行）。第二个循环比较（第 41-79 行）、排名（第 41-79 行）、正确（第 15-27 行）、输出（第 15-27 行）等等。 此代码适用于第一个循环。之后就出错了。

Private Sub CommandButton3_Click()

Dim LastRow
Dim i

LastRow = Cells(Rows.Count, "F").End(xlUp).Row


For i = 2 To LastRow
    Cells(i, 7) = Application.WorksheetFunction.VLookup(Cells(i, 6), Columns("D:E"), 2, 0)
Next i

End Sub

下面附上示例数据的图像。

Answer 1

如果我理解正确，如果 Compare 和 Correct 相等，您希望将值从 Rank 复制到 Output。我认为在这种情况下你只需要一个简单的 IF 语句：

For i = 2 to 26 'I am basing these numbers off the spreadsheet, but you could use 
                 variables here from earlier in your code.

If Cells(i, 4) = Cells(i, 6) Then   'Column 4 and 6 are Compare and Correct, 
                                     respectively.
  Cells(i, 7) = Cells(i, 5)         'Column 7 and 5 are Output and Rank respectively.

Next i

Answer 2

按照你添加的图片，使用VLOOKUP不是更容易吗？您将获得与您使用的 IFS 相同的结果。

试试这个：

Private Sub CommandButton2_Click()

LastRow = Cells(Rows.Count, "F").End(xlUp).Row

For i = 2 To LastRow
    Cells(i, 7) = Application.WorksheetFunction.VLookup(Cells(i, 6), Columns("D:E"), 2, 0)
Next i

End Sub

LastRow 获取“正确”列的最后一个单元格，因此我们知道宏必须通过循环多少次。 接下来我们有一个For 循环（在您的示例中）从 2 到 14。 在循环内部有一个 VLOOKUP 函数，它将列 Correct 的值与列 Compare 的值进行比较，如果匹配，则返回列 Rank 的值strong> 第一场比赛。