财务对账回单卡数怎么看（财务对账单里的重复值如何快速地删除）

你了解财务对账单里的重复值如何快速地删除吗？

今天就给大家来介绍这方面的知识，希望可以对大家有用。

财务工作中，你是否遇到焦头烂额不知如何解决的问题呢？

某粉丝，有几百个客户，需要将客户对应的数据复制到相应的表格。已经复制了1天，结果发现数据重复了。准备再重新操作，处理到凌晨应该能搞完。

哎，惨。。。

卢子简化一下表格，大概是这样，现在对账单已经生成到每个工作表了，就是里面的数据有的是重复的，需要将所有工作表的重复值删除。

删除重复值这个功能，默认情况下只能对一个表操作，如果选择全部工作表，是不允许操作的。

也就是说，这种问题只能借助VBA解决了。

直接写代码难度是比较大，可以录制一个删除重复值的宏，再加循环语句。

点开发工具，录制宏，选择区域，点数据，删除重复值，确定，开发工具，停止录制。

点VB，进入VBA的后台，在模块里面就能找到刚刚录制的宏。

好，删除重复值的代码出来了。下面就得考虑区域的问题，每个工作表的区域都起始行都一样，但结束行不一样，但有一个规律，最后一行都是合计。

判断合计的行数，可以用MATCH函数。

=MATCH("合计",A:A,0)

在VBA中也可以调用工作表函数。

Application.Match("合计", .Range("a:a"), 0)

核心的两个问题解决，剩下的就加循环语句、容错等。代码运行动画。

最终代码如下：

Sub 删除重复值()

Dim i%, h1%, h2%, Sh As Worksheet

On Error Resume Next

Application.ScreenUpdating = 0

For Each Sh In Worksheets

If Sh.Name <> "总明细" Then

With Sh

h1 = Application.Match("合计", .Range("a:a"), 0)

.Range("A5:L" & h1).RemoveDuplicates Columns:=Array(1, 12), Header:=xlYes

h2 = .Cells(h1, 1).End(xlUp).Row

If .Cells(h1, 1).Offset(-1) = "" Then

.Rows(h2 1 & ":" & h1 - 1).EntireRow.Delete

h1 = Application.Match("合计", .Range("a:a"), 0)

.Cells(h1, 1).Offset(0, 3) = "=sum(r5c:r[-1]c)"

.Cells(h1, 1).Offset(0, 5) = "=sum(r5c:r[-1]c)"

End If

End With

End If

Next Sh

Application.ScreenUpdating = 1

End Sub

VBA好用是好用，就是太难了，写代码、修改代码、测试代码都要花费大量时间。

来源：Excel不加班

【小会福利时间到】

小会又来送福利啦！

【工资标准表】

【变更工资申请表】

关注 私信小编：资料

即可领取以上资料哦！

因领取人数太多，若是不能及时回复，请大家耐心等待哦~

,