|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 garfield133 于 2020-1-10 15:24 编辑
Sub ssss()
Dim i As Integer 'i为表1行
Dim l As Integer 'l为表2行
Dim k As String
For l = 2 To Application.WorksheetFunction.CountA(Sheet2.Range("B:B")) Step 1
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("B:B")) Step 1
If Sheet2.Cells(l, 2).Value = Sheet1.Cells(i, 2).Value Then
k = k & Sheet1.Cells(i, 3).Value & "&"
End If
Next i
Sheet2.Cells(l, 3).Value = k
Let k = ""
Next l
End Sub
表2 B列的数据要自已提取哈!
|
|