VBA中判断单元格内容是否相同
有2张表格，要判断第一张表格中的字段是否等于第二张表格中的对应字段。
比如说，Sheet1中的A，B两列的内容为第一张表格，Sheet2中的A，B两列的内容为第二张表格。要求就是判断Sheet1中的A列内容是否等于Sheet2中的A列内容，并且同时满足条件Sheet1中的B列内容等于Sheet2中的B列内容。
比如Sheet1的A1等于Sheet2的A1同时Sheet1的B1等于Sheet2的B1，相同就在Sheet1的C1单元格中输入“相同”。并且结束本轮循环，开始判断Sheet1的A2，B2。如果判断后不相同则判断Sheet1的A1是否等于Sheet2的A2同时Sheet1的B1等于Sheet2的B2，相同则标记，不同则看Sheet1的A1是否等于Sheet2的A3同时Sheet1的B1等于Sheet2的B3，以此类推，如果一直判断到Sheet2的最后一行，仍然无相同记录，则开始对Sheet1的A1，B2就行新一轮判断，一直到判断完第一张表的所有记录结束。
比如Sheet1中A1
A1内容等于C1内容，并且B1内容等于D1内容（）
上面字打错，如果一直判断到Sheet2的最后一行，仍然无相同记录，则开始对Sheet1的A2，B2进行新一轮判断，然后在判断Sheet1的A3，B3等等，一直到判断完第一张表的所有记录结束。
最新回答
白色季节
2024-04-14 19:19:45
设定两个变量a，b接收两个单元格的数据，flag变量得到比较结果。
a=range("a1");b=a=range("b1")
flag= a like b
如果flag=true，则表示两个单元格数据相同；false值，数据不同。
一身懵逼正气
2024-04-14 15:37:19
林中雨亭
2024-04-14 20:09:08
Dim i As Long
Dim j As Long
For j = 1 To Sheets(1).Cells(65536, 1).End(xlUp).Row
For i = 1 To Sheets(2).Cells(65536, 2).End(xlUp).Row
If Sheets(1).Cells(j, 1).Value = Sheets(2).Cells(i, 1).Value Then
If Sheets(1).Cells(j, 2).Value = Sheets(2).Cells(i, 2).Value Then
Cells(j, 3).Value = "相同"
Exit For
End If
End If
Next
Next
End Sub
热门标签
