VBA 如何写重复值只保留一个其他不变，求助各位老师。谢谢！

13602822168

VBA 如何写重复值只保留一个其他不变，求助各位老师。谢谢！

3190496160

根据什么判断是否重复？？

joy.008@163.com

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ahui885205

行方向去重复？还有其它要求条件？虽然我不太懂vba，但能猜个八九不离十.

titi012

猜一下。。。。

1. Sub tt()
   
2.     Dim Arr, i&, j&, x&, y&, T
   
3.     Arr = Range("d2").CurrentRegion
   
4.     For i = 2 To UBound(Arr)
   
5.         x = 0
   
6.         For j = 1 To UBound(Arr, 2)
   
7.             If Arr(i, j) <> "" Then
   
8.                 x = x + 1
   
9.                 T = Arr(i, j)
   
10.                 Arr(i, j) = "' "
    
11.                 If j < UBound(Arr, 2) Then
    
12.                     For y = j + 1 To UBound(Arr, 2)
    
13.                         If Arr(i, y) Like T Then Arr(i, y) = ""
    
14.                     Next y
    
15.                 End If
    
16.                 Arr(i, x) = T
    
17.             End If
    
18.         Next j
    
19.     Next i
    
20.     Range("k1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    
21. End Sub

复制代码

13602822168

3190496160 发表于 2024-7-4 11:45
根据什么判断是否重复？？

行，有没有重复值，有就只保留一个

半百

13602822168

titi012 发表于 2024-7-4 12:03
猜一下。。。。

谢谢！完美!!

笨鸟飞不高

13602822168

titi012 发表于 2024-7-4 12:03
猜一下。。。。

如果只检测从E列开始到F列，要改哪里?谢谢！