如何解决在vba中将工作表1中的2列与单个工作簿中工作表2中的2列进行比较
我想将 sheet1 中的 2 列(A、B)值与 2 列(C、D)进行比较,如果它们匹配,则在表 1 的下一列中,单元格值应为“匹配”,如果不匹配,则为“不匹配”匹配")
在 sheet1(A 列应等于 ==)sheet2(C 列)中
在 sheet1(B 列应等于 ==)sheet2(D 列)中
例如 1
SHEET1 SHEET2
A B C D E
101 2000 101 2000 匹配(所有 4 个值相同)
例如 2
SHEET1 SHEET2
A B C D E
101 2000 201 2000 不匹配(A 和 C
例如 3
SHEET1 SHEET2
A B C D E
101 2000 101 3000 不匹配
例如 4
SHEET1 SHEET2
A B C D E
301 7000 101 3000 不匹配
解决方法
Option Explicit
Sub macro()
Dim i As Long,iLast As Long
iLast = Sheet1.Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLast
If Sheet1.Cells(i,"A") = Sheet2.Cells(i,"C") _
And Sheet1.Cells(i,"B") = Sheet2.Cells(i,"D") Then
Sheet1.Cells(i,"C") = "Matched"
Else
Sheet1.Cells(i,"C") = "Not Matched"
End If
Next
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。