Question

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等等，一直到判断完第一张表的所有记录结束。

Answer 1

用函数like
设定两个变量a，b接收两个单元格的数据，flag变量得到比较结果。
a=range("a1");b=a=range("b1")
flag= a like b
如果flag=true，则表示两个单元格数据相同；false值，数据不同。

Answer 2

用IF去做,相同则返回一个你指定的字符,不相同也可返回你指定的另一个字符.

Answer 3

Sub 判断()
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