(资料图片仅供参考)

1、设表2为sheet2，从第2行开始是数据，则1）插入模块。

2、做个自定义函数Function CString(strSN As String) As String Dim sht As Worksheet, R As Long, I As Long Set sht = Sheet2 With sht R = .Range("A" & Rows.Count).End(xlUp).Row For I = 2 To R If CStr(.Range("A" & I).Value) = strSN Then CString = CString & .Range("B" & I).Value & ";" Next End With Set sht = NothingEnd Function2）表1中，C2=CString(A2)，然后复制粘贴即可。

本文到此分享完毕，希望对大家有所帮助。

关键词：