|
发表于 2017-6-1 11:21
|
显示全部楼层
本楼为最佳答案
试试!{:1312:}
- Sub test()
- Dim d As Object
- Dim ar, br()
- Dim i As Long
- Set d = CreateObject("scripting.dictionary")
- ar = Cells(1, 1).CurrentRegion
- ReDim br(1 To UBound(ar), 1 To 1)
- br(1, 1) = "辅助列"
- For i = 2 To UBound(ar)
- If d.exists(ar(i, 2)) Then
- br(i, 1) = 0
- Else
- d.Add ar(i, 2), ""
- br(i, 1) = 1
- End If
- Next i
- With Cells(1, 4)
- .Resize(Rows.Count).ClearContents
- .Resize(i - 1) = br
- End With
- End Sub
复制代码
|
|