在另一个工作表的列中查找匹配的数据
我有两张纸,即(Sheet2)和(Sheet3)。 我希望匹配第3页第A列中的A列数据。下面的示例:
Sheet2 Sheet3 StdID StdID 1001 1001 1002 1002 1003 1002 1004 1004 1005 1005 1006 1006
我想要的输出是这样的..(已经有一个Sheet4,但它是空白的,所以不需要添加一个新的工作表的VBA代码。)
Sheet2 Sheet3 Sheet4 StdID StdID Result 1001 1001 Yes 1002 1002 Yes 1003 1002 No 1004 1004 Yes 1005 1005 Yes 1006 1006 Yes
你可以通过使用简单的if()
函数来做到这一点。 在Sheet4
公式将是..
=IF(Sheet2!A2=Sheet3!B2,"Yes","No")
通过使用VBA:
Public Sub dataMatch() Dim lnCell As Long lnCell = Sheets("Sheet2").Range("A2").End(xlDown).Row For i = 2 To lnCell If Sheets("Sheet3").Range("A" & i) = Sheets("Sheet2").Range("A" & i) Then Sheets("Sheet4").Range("A" & i) = "Yes" Else Sheets("Sheet4").Range("A" & i) = "No" End If Next End Sub
假设你的数据从每个表格的A2
单元格开始, A1
单元格被用作标题。 结果将显示在Sheet4
A2
单元格中。 如果你在另外一栏显示它的意思是B
或C
那么修改你自己的代码。