Excel横向删除重复数据
我们都了解，Excel中的“删除重复值”功能只能针对某列竖向的数据下的重复值。如下图所示，如果每行数据中存在重复值，该如何横向按行批量删除重复值呢，删除完成后，将唯一值规则的放在指定的区域中。
小编查阅了大量的资料。这个问题还是有一定的难度的。如果这种问题在工作中真的遇到，且数据量很大的情况下，确实令人很棘手。
我们可以用VBA代码的方法轻松瞬间完成。这个代码是固定的模板，我们只需要复制粘贴即可使用。
右击工作表名称标签，点击“查看代码”，在弹出的VBA窗口中，复制粘贴代码，然后点击“运行”按钮，点击运行按钮下的“运行子过程/用户窗体”选项，最后点击关闭VBA窗口，当界面回到Excel主界面时，我们发现横向按行批量删除重复值的结果已经出来了。
小编计算了一下时间，用复制VBA代码的方法完成这个难题也不过5秒钟的事儿！
代码模板如下，复制粘贴即用：
-----------------------
Sub test()
Dim arr, i, j, k, n
arr = [a1:f3].Value
ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
n = 0
For j = 1 To UBound(arr, 2)
For k = 1 To j - 1
If arr(i, j) = arr(i, k) Then Exit For
Next
If k = j Then
n = n + 1: brr(i, n) = arr(i, j)
End If
Next
Next
[a12].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub
-----------------------
注意：
本段代码中[a1:f3]代表的意思是：数据源的区域范围，本例中数据源即需要去重复的数据在a1:f3区域。根据实际情况而更改。
本段代码中 [a12]代表最终完成的数据存放的起始位置，本例中存放在了A12单元格的起始位置。根据实际情况而更改。