(资料图)
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)，然后复制粘贴即可。
本文为大家分享到这里，希望小伙伴们有帮助。
标签：
1、设表2为sheet2，从第2行开始是数据，则1）插入模块。2、做个自定义函数FunctionCString(str
5月30日6时42分，神舟十六号载人飞行任务航天员乘组出征仪式在酒泉卫星发射中心问天阁圆梦园广场举行。这是
1、原电池工作原理原电池是将一个能自发进行的氧化还原反应的氧化反应和还原反应分别在原电池的负极和正极
5月30日，据新京报体育消息，2023国际乒联第22周排名：男双：樊振东 王楚钦第1；女双：王曼昱 孙颖莎第1，
【山西焦化：公司暂无焦炭出口业务】山西焦化(600740)在互动平台表示，公司暂无焦炭出口业务
优化金融消费环境，提振金融消费信心——民生银行广州分行在行动
【当前独家】地铁8号线北延段车站设置将敲定，利好花都这些板块
交通运输部将推进12件交通运输民生实事 驾驶员将收到多个“便利包” 