- Sub tt()
- arr = Range("a11:f" & [a65536].End(3).Row)
- brr = Range("h11:m" & [h65536].End(3).Row)
- ReDim crr(1 To UBound(arr), 1 To 1)
- For i = 1 To UBound(arr)
- crr(i, 1) = 0
- xstr = "," & Join(Application.Index(brr, i), ",") & ","
- For j = 1 To UBound(arr, 2)
- If InStr(xstr, "," & arr(i, j) & ",") > 0 Then crr(i, 1) = crr(i, 1) + 1
- Next
- Next
- [q11].Resize(UBound(crr)) = crr
- End Sub
复制代码 |