|
又没有啥难度的,你自己都懂代码的,可以自己调试下啊。
下面的供您参考下
- Sub aa()
- Dim Dic, Arr
- Set Dic = CreateObject("scripting.dictionary")
- Application.ScreenUpdating = False
- Arr = Sheet1.[a1].CurrentRegion
- For i = 2 To UBound(Arr)
- ms = Arr(i, 2) & "#" & Arr(i, 4) & "#" & Arr(i, 5) & "#" & Arr(i, 6)
- Dic(Trim(Arr(i, 1))) = ms
- Next i
- With Sheet2
- r = .Cells(.Rows.Count, 1).End(xlUp).Row
- .Range("a1:a" & r).Offset(1, 1).Resize(r, 4) = ""
- Arr = .Range("a1:a" & r)
- End With
- For i = 2 To UBound(Arr)
- If Dic.exists(Trim(Arr(i, 1))) Then
- Sheet2.Cells(i, 2).Resize(1, 4) = Split(Dic(Trim(Arr(i, 1))), "#")
- End If
- Next i
- Set Dic = Nothing
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|