oracle 两表两列数据对比_Excel对比两列数据差异，我勒个嘚嘚，居然这么快！

分列时让超过15位的数字不变成科学计数法

Excel情报局

生产搬运分享Excel基础技能

OFFICE知识新青年

用1%的Excel基础搞定99%的日常工作

做一个有文艺范的Excel公众号

Excel是门手艺 玩转需要勇气

边听边学，阅读文章更轻松

如下图所示：如何对比A列和B列两列内容的差异？ 下面小编教大家用一段代码的方法轻松解决这个问题。有的小伙伴一听是代码就望而却步，其实这种现成的代码既不用背，也不用记，只需复制粘贴，运行即可，简单到只需几秒完成。所以，不要用无形的想象吓到自己，你和成功之间往往就差一步实践。

右击工作表-查看代码-打开VBA窗口(或ALT+F11快捷键打开)-复制粘贴代码至VBA窗口。

点击运行-再点击 运行子过程/用户窗体-会出现如下几个提示框： 出现第一个提示框后，选择A列数据区域。

出现第二个提示框后，选择B列数据区域。

出现第三个提示框后，选择放置结果的单元格A10单元格。

最后提示完成，点击确定。

我标黄的区域即最后得到的A列和B列两个差异的结果，非常详细。

动图再仔细看一遍过程，加深印象：

复制如下代码：

Sub CheckTwoClnData()

    Dim d As Object

    Dim i As Long, n1 As Long, n2 As Long, n3 As Long, m As Long

    Dim strTemp As String

    Dim arr1 As Variant, arr2 As Variant, brr As Variant, kr As Variant

    Dim rng1 As Range, rng2 As Range, rng As Range

    Set d = CreateObject("scripting.dictionary")

    On Error Resume Next

    Set rng1 = Application.InputBox("请选择需要核对差异的第一列数据", Type:=8)

    If rng1.Columns.Count > 1 Then MsgBox "请选择单列数据。": Exit Sub

    If rng1.Rows.Count = 1 Then MsgBox "不能选择单个单元格。": Exit Sub

    Set rng1 = Intersect(rng1.Parent.UsedRange, rng1)

    If Not rng1 Is Nothing Then arr1 = rng1.Value

    Set rng2 = Application.InputBox("请选择需要核对差异的第二列数据", Type:=8)

    If rng2.Columns.Count > 1 Then MsgBox "请选择单列数据。": Exit Sub

    If rng2.Rows.Count = 1 Then MsgBox "不能选择单个单元格。": Exit Sub

    Set rng2 = Intersect(rng2.Parent.UsedRange, rng2)

    If Not rng2 Is Nothing Then arr2 = rng2.Value

    For i = 2 To UBound(arr1)

        If Len(arr1(i, 1)) Then

            d("'" & arr1(i, 1)) = "不存在"

        End If

    Next

    If UBound(arr1) > UBound(arr2) Then

        m = UBound(arr1)

    Else

        m = UBound(arr2)

    End If

    ReDim brr(0 To m, 1 To 3)

    For i = 2 To UBound(arr2)

        If Len(arr2(i, 1)) Then

            strTemp = "'" & arr2(i, 1)

            If d.exists(strTemp) Then

                n1 = n1 + 1

                brr(n1, 1) = strTemp

                d(strTemp) = "存在"

            Else

                n3 = n3 + 1

                brr(n3, 3) = strTemp

            End If

        End If

    Next

    kr = d.keys

    For i = 0 To UBound(kr)

        If d(kr(i)) = "不存在" Then

            n2 = n2 + 1

            brr(n2, 2) = kr(i)

        End If

    Next

    Err.Clear

    Set rng = Application.InputBox("请选择放置查询结果的单元格，例如C1", Type:=8)

    rng.Parent.Select

    rng.Select

    If Err.Number = 0 Then

        brr(0, 1) = "两列均存在的数据有" & n1 & "条"

        brr(0, 2) = "A有B没有的数据有" & n2 & "条"

        brr(0, 3) = "B有A没有的数据有" & n3 & "条"

        With rng(1).Resize(UBound(brr) + 1, 3)

            .ClearContents

            .NumberFormatLocal = "@"

            .Value = brr

        End With

        MsgBox "核对完成。" & vbLf & brr(0, 1) & vbLf & brr(0, 2) & vbLf & brr(0, 3)

    End If

    Set d = Nothing

    Set rng = Nothing

    Set rng1 = Nothing

    Set rng2 = Nothing

    Erase arr1: Erase arr2: Erase brr

End Sub

视频演示：

不要随意对任何一个Excel知识点定义为无用论，因为只有合适的问题在合适的模型运用合适的Excel技巧，才能实现其最大作用。所以你的知识储备很重要！

隔三差五学个Excel小知识，忘记一天工作的烦恼，只要坚持，最后可能不会得到最好的结果，但一定不会收获最坏的结果。赖床舒服，但可能迟到；熬夜很爽，但伤身体。自律或许并不容易，但你越懒惰越放纵自己，就越可能错过美好的人和事。如果生活注定充满艰辛，那就学着做拯救自己的那个英雄。趁年轻不妥协，向前奔跑！从今天开始改变，对平庸生活奋力回击。

  

  往期知识点精彩链接点击阅读！

【 Office2003~2019简体中文版下载 】 【 WPS表格2019版开启VBA宏功能 】 【 全网文字任你免费复制的小技巧 】 【 快速提取Excel表格的所有图片 】 【 微信朋友圈空白说说这样操作 】 【 Excel电话号码导入手机通讯录 】 【批量合并工作簿下所有工作表 】 【材料出入库电子表格模板分享】 【30套炫卡通风格PPT模板 分享】 【40套酷梦幻风格PPT模板分享 】 【 备考公务员之公文写作大全 】 【 Excel财务账模板超级实用 】 【再不怕 忘记电脑开机密码 】 【 电脑微信多开的方法 】 【 Excel制作公章方法 】 【 电脑重装系统方法 】 【 Excel卸载小工具 】 【 工作簿合并工具 】