[已解决]不重复提取

fangniuji

大家帮忙一下，把BH，BI，BR，不重复提取在BS到BU列，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-1 14:08

1. Sub 宏3()
   
2. Application.ScreenUpdating = False
   
3. Range("bh:bh").Copy Range("bs1")
   
4. Range("bi:bi").Copy Range("bt1")
   
5. Range("br:br").Copy Range("bu1")
   
6. Range("bs:bu").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
   
7. Application.ScreenUpdating = True
   
8. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

2010自带去除重复的功能呀。

hwc2ycy

1. Sub 宏3()
   
2. Application.ScreenUpdating = False
   
3. Range("bh:bh").Copy Range("bs1")
   
4. Range("bi:bi").Copy Range("bt1")
   
5. Range("br:br").Copy Range("bu1")
   
6. Range("bs:bu").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
   
7. Application.ScreenUpdating = True
   
8. End Sub

复制代码

hwc2ycy

把每列的最后一行求出来，复制会快很多。

fangniuji

hwc2ycy 发表于 2013-1-1 14:09
把每列的最后一行求出来，复制会快很多。

节日快乐，2013好，谢谢你的过去一年的帮忙，谢谢！！！

hwc2ycy

1. Sub 宏1()
   
2. 
   
3.     Dim iRow&
   
4. 
   
5.     iRow = Cells(Rows.Count, "bh").End(xlUp).Row
   
6.     Range("bh1:bh" & iRow).Copy Range("bs1")
   
7. 
   
8.     iRow = Cells(Rows.Count, "bi").End(xlUp).Row
   
9.     Range("bi1:bi" & iRow).Copy Range("bt1")
   
10. 
    
11.     iRow = Cells(Rows.Count, "br").End(xlUp).Row
    
12.     Range("br1:br" & iRow).Copy Range("bu1")
    
13. 
    
14.     Range("bs1:bu" & iRow).RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
    
15. 
    
16. End Sub

复制代码

hwc2ycy

03里，这个代码没法用。