跪求大神帮忙!!改一段代码，你若不来，我便不离开，原地等可好！！！

脱离水的鱼

在论坛中发现了一个问题跟我目前遇到的问题很像，地址如下，http://club.excelhome.net/forum. ... ead&tid=1180925但是我的是sheet1中人名位置在H2到M,我把原帖中一位大神写的代码复制下来：

Sub myrep()
Application.ScreenUpdating = False
Dim col As New Collection, cel, arr, arr1(), mycol, j%
arr = Sheet1.UsedRange.Value
For Each cel In arr
If Len(cel) > 0 Then
On Error Resume Next
col.Add cel, CStr(cel)
End If
Next
ReDim arr1(1 To col.Count)
For Each mycol In col
j = j + 1
arr1(j) = mycol
Next
[a1].Resize(UBound(arr1), 1) = WorksheetFunction.Transpose(arr1)
Application.ScreenUpdating = True
End Sub

文件已上传，求路过大神帮帮忙。 表1和表2是原文件，我的计算数据是我的所据所在位置

jiminyanyan

说明也没有，看不懂………………

脱离水的鱼

jiminyanyan 发表于 2017-3-25 15:48
说明也没有，看不懂………………

抱住，原代码是把 sheet1中出现的不重复的人名汇总到sheet2 A列，但是我想把范围更改成sheet1 中H2到M20000

jiminyanyan

脱离水的鱼 发表于 2017-3-25 15:51
抱住，原代码是把 sheet1中出现的不重复的人名汇总到sheet2 A列，但是我想把范围更改成sheet1 中H2到M200 ...

不需要参考原代码，你只要把需求讲清楚，怎么写是别人的事…………

脱离水的鱼

哦哦，就是让人写代码这种高大上的事情，觉得特不好意思，就翻遍了这个论坛找了个相近的，觉得别人可能只需要改一下就好了。谢谢 大神。

zax010

Sub zz()
    ar = Sheet3.UsedRange.Offset(1)
    With CreateObject("Scripting.Dictionary")
        For Each ce In ar
            If ce <> "" Then .Item(ce) = ""
        Next
        Sheet2.Range("A1").Resize(.Count) = Application.Transpose(.keys)
    End With
End Sub

zax010

现如今，都不太用 Collection 了。


去重复.rar (18.71 KB, 下载次数: 7)

2017-3-26 13:00 上传

点击文件名下载附件

脱离水的鱼

zax010 发表于 2017-3-26 13:00
现如今，都不太用 Collection 了。

楼上好人，但是我只想把H到M列的数据去重复汇总，在之外的数据不要汇总，比如M列的金额是参与计算的，A到G列有很多其它信息。

蓝桥玄霜

1. Sub myrep()
   
2. Dim d, Arr, i&, j%
   
3. Application.ScreenUpdating = False
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Arr = Sheet3.[h1].CurrentRegion
   
6. For j = 1 To UBound(Arr, 2) - 1
   
7.     For i = 2 To UBound(Arr)
   
8.         If Arr(i, j) <> "" Then
   
9.             d(Arr(i, j)) = ""
   
10.         End If
    
11.     Next
    
12. Next
    
13. [a1].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
14. Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

zax010

脱离水的鱼 发表于 2017-3-27 10:15
楼上好人，但是我只想把H到M列的数据去重复汇总，在之外的数据不要汇总，比如M列的金额是参与计算的，A到 ...

把
   ar = Sheet3.UsedRange.Offset(1)
改为
    ar = Sheet3.Range("H2:N" & Sheet3.[h65536].End(3).Row)