excel单元格按行去重VBA

最新推荐文章于 2024-03-27 15:55:44 发布

风子~

最新推荐文章于 2024-03-27 15:55:44 发布

阅读量1.5k

点赞数

分类专栏： VBA 文章标签： excel

本文链接：https://blog.csdn.net/qq_42020750/article/details/105270710

版权

VBA 专栏收录该内容

6 篇文章 6 订阅

订阅专栏

应用背景：

一批数据如图表1的数据中每行可能有重复的值，需要按行去重得到表2的数据，用VBA直接实现按行去重，效率很香。
在这里插入图片描述
VBA代码实现：

Option Explicit

Sub test()
  Dim arr, i, j, k, n
  arr = [A2:E4].Value ' [A2:E4]输入选择需要去重的单元格范围
  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
  [G2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr [G2]输入选择需要保存去重后数据的起始位置
End Sub

直接运行此VBA即可得出按行去重的结果