昨天在网上看到一个老管帐的求援，如下图所示，左侧是银行的假贷方数据，右侧是自已公司的假贷方数据反差 婊，表格有1500行。咫尺需要作念如下：
1、银行的借方和公司的贷方查对（如下图红色列）
2、银行的贷方和公司的借方查对（如下图绿色列）
可能好多老管帐看到查对巧合会料想Vlookup，但试了一下才知谈根柢不可，因为两边表格都有好多重迭数据（如上图中箭头所示）。
那.....要是用手工一个个打勾，1500多行，老眼都就算看花了，一天也查对不完啊。嘿嘿，看标题就知谈今天的主角是DeepSeeK,接下来看新时间的管帐们，如何5秒就完成1500多行查对的。
点击Excel表格中动手查对按钮启动查对，考中两个表格后，一秒完成查对。贷方和借方查对圭臬疏导。
欧美大图
是不是没料想让东谈主头痛的查对职责这样毛糙。这个奥秘的按钮是如何制作出来的呢？想学就跟小编一皆作念吧。
1、让DeepSeek写VBA代码反差 婊
灵通Deepseek官网，把底下的一段话提交给它。要是让想让deepseek更快的写出代码，就关闭深度想考。
帮我用VBA编写一段查对两列数据的代码，两列数据都有重迭值。运行后先弹出两次秉承数据区域的窗口，考中后动手对两列数据进行查对。查对章程是：1 、数据一双一查对，一个数只可用一次 2、遭逢0值跳过 3、查对见效后，两个单位格都填充疏导的巧合色（样式要轻柔不忽闪）
注：要是你不了解如何和deepseek对话，上头的话术一定要储藏起来
很快DeepSeep就会帮我写出代码：
Sub CompareTwoColumns Dim rng1 As Range, rng2 As Range Dim cell1 As Range, cell2 As Range Dim usedCells As Object Dim color As Long ' 弹出窗口秉承第一列数据区域 On Error Resume Next Set rng1 = Application.InputBox("请秉承第一列数据区域", "秉承区域", Type:=8) On Error GoTo 0 If rng1 Is Nothing Then Exit Sub ' 弹出窗口秉承第二列数据区域 On Error Resume Next Set rng2 = Application.InputBox("请秉承第二列数据区域", "秉承区域", Type:=8) On Error GoTo 0 If rng2 Is Nothing Then Exit Sub ' 驱动化用于记载已使用单位格的字典 Set usedCells = CreateObject("Scripting.Dictionary") ' 遍历第一列数据 For Each cell1 In rng1 If cell1.Value 0 And Not usedCells.exists(cell1.Address) Then ' 遍历第二列数据 For Each cell2 In rng2 If cell2.Value 0 And Not usedCells.exists(cell2.Address) Then ' 要是两列数据匹配 If cell1.Value = cell2.Value Then ' 生成轻柔的巧合样式 color = RGB(Int((200 - 150 + 1) * Rnd + 150), _ Int((200 - 150 + 1) * Rnd + 150), _ Int((200 - 150 + 1) * Rnd + 150)) ' 填充样式 cell1.Interior.Color = color cell2.Interior.Color = color ' 标记这两个单位格为已使用 usedCells.Add cell1.Address, True usedCells.Add cell2.Address, True ' 跳出内层轮回，不息外层轮回 Exit For End If End If Next cell2 End If Next cell1 ' 开释字典对象 Set usedCells = Nothing MsgBox "查对完成！"End Sub
2、把代码粘贴到Excel、WPS中
设置用具 - Visual basic（WPS：用具 - Vb裁剪器), 在新灵通的窗口中点插入 - 模块 ，然后把代码粘贴右侧的窗口中。
3、添加执行按钮
插入一个矩形，右侧指定宏，考中刚才粘贴的宏称号，点细目。
要是你想以后还不错使用，还需要把文献另存为启用宏的文献阵势。
完工！
Ps：DeepSeek的出现已悄然改造了咱们的职责口头反差 婊，本来让你加班到萎靡的表格，咫尺只需要轻轻极少就措置。是以老管帐们，要跟上新时间喽！