如何将两组3位数 合并 成5位数

无涯2024

有A,B 两组3位数，将A列中 个位 与 B列中 百位相同的数 合并成5位数

leepoison

1. =LET(x,TOCOL(A1:A11&TRANSPOSE(B1:B14)),y,MID(x,3,1),z,MID(x,4,1),w,FILTER(x,y=z),LEFT(w,3)&RIGHT(w,2))

复制代码

swl4561255

1. Private Sub CommandButton1_Click()
   
2. arr = Range("A1").CurrentRegion
   
3. Dim brr()
   
4. For i = 1 To Range("A1").End(4).Row
   
5.     For j = 1 To Range("B1").End(4).Row
   
6.         If (arr(i, 1) Mod 10) = Int(arr(j, 2) / 100) Then
   
7.             m = m + 1
   
8.             ReDim Preserve brr(1 To m)
   
9.             brr(m) = arr(i, 1) & Mid(arr(j, 2), 2)
   
10.         End If
    
11.     Next
    
12. Next
    
13. [D1].Resize(m, 1) = Application.Transpose(brr)
    
14. End Sub
    
15. 
    

复制代码

wengjh8848

=LET(s,REDUCE("",A1:A11,LAMBDA(x,y,VSTACK(x,LEFT(y,2)&FILTER(B1:B14,LEFT(B1:B14)=RIGHT(y),"")))),FILTER(s,LEN(s)=5))