我要投稿

核对2个表格，Deepseek才是YYDS，看我30秒搞定！

发布日期：2025-04-02 17:04:18 浏览次数： 1537 作者：Excel从零到一

数据核对，这4个字，每到月初就压得大多数人喘不起来，货款要核定，订单要核对，支出也要核对，看到数据就头大。有粉丝问道：有简单的方法没有

用Deepseek啊！简单容易操作，30秒即可搞定！

一、数据准备

我们最好准备2个Excel表格，方便AI进行快速的核对，这2个表格的如果存在多个sheet，sheet的名称需要保持一致。不然得不到正确的结果，如果只有1个sheet则不需要特殊说明

二、文件上传

我们需要来到deepseek的官网中，之后在右下角点击【附件上传】将我们需要的Excel文件直接上传给deepseek，最后只需要在下方提出要求即可，大家可以参照我的提问。

最好是让它直接生成一个Excel文件，方便我们下载直接使用

我发现deepseek生成的Excel文件有时候国内用户无法直接下载，如果你出现这样的情况，可以考虑使用豆包，豆包都是可以下载的，结果基本都是一样的

三、代码核对

如果你的数据非常的敏感，无法上传，害怕文件出现泄漏，可以让Deepseek帮你生成一段VBA代码，用于数据的核对，如果你不想询问，就直接复制下方代码即可，根据提示来选择对应的表格即可

使用方法也非常的简单，按下ALT+F11调出窗口，右侧点击空白区域插入【模块】然后粘贴代码，点击运行，根据提示选择对应的2个表格即可。

Sub CompareTables()    Dim ws As Worksheet    Dim rng1 As Range, rng2 As Range    Dim headers1 As Range, headers2 As Range    Dim colMap As Object    Dim maxRows As Long, i As Long    Dim diffCount As Long    On Error Resume Next    Set rng1 = Application.InputBox("选择第一个表格区域（包含表头）", "选择表1", Type:=8)    If rng1 Is Nothing Then Exit Sub    Set rng2 = Application.InputBox("选择第二个表格区域（包含表头）", "选择表2", Type:=8)    If rng2 Is Nothing Then Exit Sub    On Error GoTo 0    Set colMap = CreateObject("Scripting.Dictionary")    Set headers1 = rng1.Resize(1)    Set headers2 = rng2.Resize(1)    For Each cell In headers1.Cells        Set found = headers2.Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)        If Not found Is Nothing Then            colMap(cell.Column - rng1.Column + 1) = found.Column - rng2.Column + 1        End If    Next    rng1.Interior.ColorIndex = xlNone    rng2.Interior.ColorIndex = xlNone    maxRows = Application.Max(rng1.Rows.Count, rng2.Rows.Count)    diffCount = 0    For i = 2 To maxRows        Dim isDiff As Boolean        isDiff = False        Dim hasRow1 As Boolean: hasRow1 = (i <= rng1.Rows.Count)        Dim hasRow2 As Boolean: hasRow2 = (i <= rng2.Rows.Count)        For Each Key In colMap.Keys()            Dim val1, val2            val1 = IIf(hasRow1, rng1.Cells(i, Key).Value, Null)            val2 = IIf(hasRow2, rng2.Cells(i, colMap(Key)).Value, Null)            If IsEmpty(val1) Then val1 = ""            If IsEmpty(val2) Then val2 = ""            If CStr(val1) <> CStr(val2) Then                If hasRow1 Then rng1.Cells(i, Key).Interior.Color = RGB(255, 255, 0)                If hasRow2 Then rng2.Cells(i, colMap(Key)).Interior.Color = RGB(255, 255, 0)                isDiff = True            End If        Next        If (hasRow1 Xor hasRow2) Then            If hasRow1 Then rng1.Rows(i).Interior.Color = RGB(255, 0, 0)            If hasRow2 Then rng2.Rows(i).Interior.Color = RGB(255, 0, 0)            isDiff = True        End If        If isDiff Then diffCount = diffCount + 1    Next    MsgBox "比较完成！" & vbCrLf & _           "总差异行数：" & diffCount & vbCrLf & _           "黄色标记：字段不匹配" & vbCrLf & _           "红色标记：行缺失", _           vbInformation, "比对结果"End Sub