一对多匹配求助代码的写法

pureshadow

1. =TEXTJOIN(",",,IF(A$1:A$5=H1,B$1:B$5,""))

复制代码

pureshadow

代码版：

1. Sub Sample()
   
2. Dim MyRow As Long, i As Long
   
3. Dim MyStr As String
   
4. For MyRow = 1 To 6
   
5.     For i = 1 To 5
   
6.         If Cells(MyRow, "h") = Cells(i, 1) Then
   
7.             MyStr = MyStr & "," & Cells(i, 2)
   
8.         End If
   
9.     Next
   
10.     Cells(MyRow, "i") = Mid(MyStr, 2, 99)
    
11.     MyStr = ""
    
12. Next
    
13. End Sub

复制代码