|
xhcyi 发表于 2012-5-29 20:47
从汇总表筛选重复记录到新汇总表工作表,汇总表重复数据的a-u列过滤在新汇总表b-v列
Sub NHG()
Dim I As Integer, J As Integer
Dim ARR, BRR(), M
ARR = Sheet1.[A1].CurrentRegion
ReDim BRR(1 To UBound(ARR), 1 To UBound(ARR, 2))
For x = 1 To UBound(ARR)
ARR(x, 11) = 0
For Y = 1 To UBound(ARR)
If ARR(x, 5) = ARR(Y, 5) Then
ARR(x, 11) = ARR(x, 11) + 1
End If
Next Y
Next x
For x = 1 To UBound(ARR)
If ARR(x, 11) > 1 Then
M = M + 1
For Y = 1 To UBound(ARR, 2)
BRR(M, Y) = ARR(x, Y)
Next
End If
Next
Sheet2.[B2].Resize(M, UBound(BRR, 2)) = BRR
End Sub |
评分
-
查看全部评分
|