Question

EXCEL表中sheet1和sheet2格式一样，有相同数据也有不同数据，用VB写个程序把他两不同的数据显示在sheet3

Answer 1

请拷屏表格内容，另外说相同的判断标准，例如A列相同就算相同么，还是A列存在，而且对应的B列相同才算相同。

追问

类似于这样的，这是sheet1，sheet2也是这样。

追答

请详细说明判断标准，sheet2凡是A列出现111就不复制到sheet3吗，还是必须111+aaa的对应，还是111+aaa之外的内容才算不同，还是……可以逻辑的可能性实在太多了

追问

sheet1中有sheet2中没有的，sheet2中有sheet1中没有的，比如sheet2中有111+aaa，而且还有666+fff，就把666+fff筛选出来，以111+aaa对应这样的形式，体现在sheet3中，谢谢谢谢。。。

追答

你觉得你说清除了么，让你身边的朋友或同时看看~~~~

 

VBA代码：

Option Explicit
Sub 找不同()
    Dim db, i, x, st As Worksheet
    Set db = CreateObject("Scripting.Dictionary")
    '扫描shee1
    Set st = Sheets("sheet1")
    For i = 1 To st.UsedRange.Rows.Count
        x = st.Cells(i, 1) & Chr(9) & st.Cells(i, 2)
        db(x) = True
    Next i
    '扫描shee2
    Set st = Sheets("sheet2")
    For i = 1 To st.UsedRange.Rows.Count
        x = st.Cells(i, 1) & Chr(9) & st.Cells(i, 2)
        If db.Exists(x) Then
            db(x) = False
        Else
            db(x) = True
        End If
    Next i
    '生成shee3
    Set st = Sheets("sheet3")
    i = 1
    For Each x In db.Keys
        If db(x) Then
            st.Cells(i, 1).Resize(1, 2) = Split(x, Chr(9))
            i = i + 1
        End If
    Next x
End Sub

运行前后三个表的内容：

前四条相同，第五条不同，所以结果为第五条。