Excel问题解决
Excel 处理横向去重复
本文档使用 MrDoc 发布
-
+
首页
Excel 处理横向去重复
Excel 处理 横向去重复 ![](/media/202212/2022-12-07_103936_5914180.6485586160487016.png) ```VBA 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 ``` 1. arr = [a1:f3].Value 设置去重范围 2. [a12].Resize(UBound(brr, 1), UBound(brr, 2)) = brr 粘贴到
dz
2022年12月7日 10:41
转发文档
收藏文档
上一篇
下一篇
手机扫码
复制链接
手机扫一扫转发分享
复制链接
Markdown文件
分享
链接
类型
密码
更新密码