|
楼主 |
发表于 2019-11-6 14:40
|
显示全部楼层
- Private Sub CommandButton1_Click()
- Dim d, Arr, i&, Myr&, Brr
- Set d = CreateObject("Scripting.Dictionary")
- Sheet1.Activate
- Myr = Sheet2.Cells(Sheet2.Rows.Count, 5).End(xlUp).Row
- Arr = Sheet2.Range("a8:p" & Myr)
- For i = 1 To UBound(Arr)
- d(Arr(i, 5) & "|" & Arr(i, 10)) = Arr(i, 16)
- Next
- Myr = Cells(Rows.Count, 2).End(xlUp).Row
- Brr = Range("a18:k" & Myr)
- For i = 1 To UBound(Brr)
- If d.Exists(Brr(i, 2) & "|" & Brr(i, 6)) Then
- Cells(i + 17, 11) = d(Brr(i, 2) & "|" & Brr(i, 6))
- End If
- Next
- End Sub
复制代码 大家帮我看看蓝版的这个代码要怎样改才能符合第二个问题的要求?
|
|