两列数据合并成一列数据

沈默00

看看这样如何，，，

沈默00

VBA就不写了，函数的也可以
=UNIQUE(FILTER(VSTACK(A5:B16,D5:E16),CHOOSECOLS(VSTACK(A5:B16,D5:E16),2)<>0))

saghj

随便写写了

ykcbf1100

用字典试一下吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.20
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = Range("a5:b" & r)
   
5.     For i = 1 To UBound(arr)
   
6.         If arr(i, 2) <> Empty Then
   
7.             S = arr(i, 1)
   
8.             If Not d.exists(S) Then
   
9.                 d(S) = arr(i, 2)
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     r = Cells(Rows.Count, 4).End(3).Row
    
14.     arr = Range("d5:e" & r)
    
15.     For i = 1 To UBound(arr)
    
16.         If arr(i, 2) <> Empty Then
    
17.             S = arr(i, 1)
    
18.             If Not d.exists(S) Then
    
19.                 d(S) = arr(i, 2)
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     ReDim brr(1 To 10000, 1 To 2)
    
24.     For i = 1 To UBound(arr)
    
25.         m = m + 1
    
26.         S = arr(i, 1)
    
27.         If d.exists(S) Then
    
28.             brr(m, 1) = S: brr(m, 2) = d(S)
    
29.         Else
    
30.             brr(m, 1) = S: brr(m, 2) = ""
    
31.         End If
    
32.     Next
    
33.     [h:i] = ""
    
34.     [h5].Resize(m, 2) = brr
    
35.     [h5].Resize(m, 2).Borders.LineStyle = 1
    
36.     MsgBox "OK！"
    
37. End Sub
    

复制代码