|
发表于 2013-6-8 18:36
|
显示全部楼层
本楼为最佳答案
ymq123 发表于 2013-6-8 17:39
老师你好:把本题又加二个相同数字的行,怎么不能选出来,请你指教。谢谢!
晕,你的一些空单元格里有空格符,有的没有。
要消空格符用下面代码:- Private Sub CommandButton1_Click()
- Dim i%, j%, k%, str$, arr, arr0(), arr1(), brr(1 To 10000, 1 To 7), d As Object
- Set d = CreateObject("scripting.dictionary")
- k = 0
- arr = Range("A2").CurrentRegion
- For i = 2 To UBound(arr)
- For j = 1 To 7
- str = str & Trim(arr(i, j)) & ","
- Next
- d(str) = d(str) + 1
- str = ""
- Next
- arr0 = d.keys
- arr1 = d.items
- For i = 0 To UBound(arr0)
- If arr1(i) > 1 Then
- k = k + 1
- For j = 1 To 7
- brr(k, j) = Split(arr0(i), ",")(j - 1)
- Next
- End If
- Next
- [J2].Resize(k, 7) = brr
- End Sub
复制代码 |
|