Question

excel vba找出不同内容

A39：J49数据1范围
2.u39：ad49数据2范围
3.k39：td49结果

Answer 1

软件版本：Office2007

举例说明如下：

1.利用VBA从下面区域中找出与其他单元格内容不同的，并填充红色：

2.Alt+F11，输入代码如下：

3.F5执行代码，得到结果如下：

Answer 2

Sub s()
    Dim c As Range
    Set rg1 = [a39:j49]
    Set rg2 = [u39:ad49]
    Set rg3 = [k39:t49]
    Set d = CreateObject("scripting.dictionary")
    For Each c In rg1
        d(c.Text) = ""
    Next
    For Each c In rg2
        If d.exists(c.Text) Then
            d.Remove (c.Text)
        Else
            d(c.Text) = ""
        End If
    Next
    For Each k In d.keys
        i = i + 1
        rg3.Item(i) = k
    Next
End Sub

追问

Set rg1 = [A39:BH1039] '数据范围1
Set rg2 = [BI39:BR1039] '结果范围
Set rg3 = [CC39:CL1039] '数据范围2
修改范围这样后， Set rg2 里没有结果 ，而Set rg3 部分内容被删除了

追答

rg3是结果

Answer 3

直接搜索一个叫Beyond Compare的软件，里面就有文本、数据对比；

EXCEL如果是两列对比的话，直接插入一个新列，编写函数：如果相同显示0，如果不同显示1

Answer 4

这个需要知道你具体些代码了。单纯这样没法说。