如何修改这组代码

清风流年

Dim zgw1, zgw2
'    With Sheet305
'    zgw1 = .[b1048576].End(3).Row
'        For zgw2 = zgw1 To 1 Step -1
'            If WorksheetFunction.CountIf(.Columns(2), .Cells(zgw2, 2)) > 1 Then
'            .Rows(zgw2).Delete
'            End If
'        Next
'    End With

我的这组代码是根据b列删除重复值，如果我的数据显示在a-d列内，后面e-g列有其他数据，我想根据b列只删除a-d列的重复值，影响到e-g列的内容，该如何修改？
希望高手指点？

清风流年

敬请各位高手给予指点，非常感谢

清风流年

我的这组代码是根据b列删除重复值，如果我的数据显示在a-d列内，后面e-g列有其他数据，我想根据b列只删除a-d列的重复值以不留空白单元格，并且不影响到e-g列的内容，该如何修改？

清风流年

期待高手的指点，谢谢

xyh_bear

清风流年 发表于 2014-6-3 16:49
我的这组代码是根据b列删除重复值，如果我的数据显示在a-d列内，后面e-g列有其他数据，我想根据b列只删除a- ...

看你这几天寻代码真的很辛苦哦，前几天求助没说清楚，不过今天求助表述还不错比较清晰。
给你一段代码，可以实现你的要求：

建议你在大量循环过程中，尽量不要在循环中操作（复制/删除/选择/粘贴...等）表格，这样会严重影响你的代码运行效率的。像你现在的需求，可以先获取来删除的单元格行，再在循环结束后一次性删除即可，这样会大大缩短运行时间的。

具体代码如下：

1. Sub DEL_DATA()
   
2.     Dim RA As Range
   
3.     Dim DC As New Dictionary
   
4.     Dim DC_DEL_Range As New Dictionary
   
5.    
   
6.     Set RA = Range("B1")
   
7.    
   
8.     Do Until RA = ""
   
9.         If DC.Exists(RA.Value) Then
   
10.             DC_DEL_Range(RA.Row) = "A" & RA.Row & ":D" & RA.Row
    
11.         Else
    
12.             DC(RA.Value) = RA.Row
    
13.         End If
    
14.         
    
15.         Set RA = RA.Offset(1, 0)
    
16.     Loop
    
17.    
    
18.     '为方便测试，将需要删除的单元格以红色字体来标识出来
    
19.     Range(Join(DC_DEL_Range.Items, ",")).Font.Color = vbRed
    
20.     '如果真正要删除的话，请将下一行代码取消注释即可
    
21.     'Range(Join(DC_DEL_Range.Items, ",")).Delete xlUp
    
22. End Sub
    

复制代码

清风流年

xyh_bear 发表于 2014-6-9 14:35
看你这几天寻代码真的很辛苦哦，前几天求助没说清楚，不过今天求助表述还不错比较清晰。
给你一段代码， ...

非常感您的帮忙，希望快速解决问题所以比较着急，有坛友给出几组代码了，运行最好的是模板数据不到2秒，非常感谢您的再次帮忙。

seeseazm

学习了,点滴的代码应用成就了应用功能的实现啊