|
发表于 2013-11-10 02:25
|
显示全部楼层
本楼为最佳答案
- Sub t()
- Dim arr(), brr(), crr() As Long, arow As Integer, col As Byte, brow As Integer
- With Sheets("sheet1")
- arr = .Range("A3:AU1002").Value
- brr = .Range("AW3:CQ63").Value
- ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
- For arow = 1 To UBound(arr)
- For col = 1 To UBound(arr, 2)
- For brow = 1 To UBound(brr)
- If arr(arow, col) = brr(brow, col) Then crr(arow, col) = crr(arow, col) + 1
- Next
- Next
- Next
- .Range("CS3").Resize(UBound(crr), UBound(crr, 2)) = crr
- End With
- End Sub
复制代码 |
|