|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub 提取不重复的记录()
- Dim ar, re, d As Object
- Dim i As Long, cnt As Long, j As Integer
- ar = Sheets(1).Range("A1").CurrentRegion
- Set d = CreateObject("Scripting.Dictionary")
- ReDim re(1 To UBound(ar), 1 To UBound(ar, 2))
- For i = 2 To UBound(ar)
- If Not d.exists(ar(i, 1) & Format(ar(i, 3), "ee-mm-dd")) Then
- cnt = cnt + 1
- d(ar(i, 1) & Format(ar(i, 3), "ee-mm-dd")) = cnt
- For j = 1 To UBound(ar, 2)
- re(cnt, j) = ar(i, j)
- Next j
- End If
- Next i
- Sheets(2).[a1].Resize(cnt, UBound(re, 2)) = re
- End Sub
复制代码 |
|