|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub lqh()
- Dim arr, brr, d, r, c
- Set d = CreateObject("scripting.dictionary")
- r = Cells(65536, 1).End(xlUp).Row
- c = ActiveSheet.UsedRange.Columns.Count
- arr = Range(Cells(1, 1), Cells(r, c))
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For i = 1 To UBound(arr)
- s = arr(i, 1) & "|" & arr(i, 3) & "|" & arr(i, 4)
- If Not d.exists(s) Then
- m = m + 1
- d(s) = m
- For j = 1 To UBound(arr, 2)
- brr(m, j) = IIf(j = 4, "'" & arr(i, j), arr(i, j))
- Next j
- End If
- Next i
- Range(Cells(1, 1), Cells(r, c)).ClearContents
- [a1].Resize(UBound(brr), UBound(brr, 2)) = brr
- End Sub
复制代码
按版主的思路改写了一下,应该更全面一些. |
|