vba删除重复内容

业务员

大量的数据，节选部分。需求如下：如果p列某单元格的数据与它右边的q列里的单元格，内容完全相同，那么该行的mnopq五个单元格一起删掉，下面的数据上移，但是不能整行删除，因为左边有别的数据。结果如下：


怎么设计vba效率更高？设定条件if p7=q7，delete mnopq？或者用数据透视表，筛选q列为空白或者含有/的数据。
谢谢！！！

wodewan

.................................

xyxcc177

给你个建议，把M-Q列的数据拷贝到另一个表中，处理完复制到原处，因为在另一个表中可删除整行，不用VBA.

zxsea_7426

xyxcc177 发表于 2023-2-18 22:01
给你个建议，把M-Q列的数据拷贝到另一个表中，处理完复制到原处，因为在另一个表中可删除整行，不用VBA.

可以把mnopq五列当成一个数组来看，有用的数据保留，没有用的不保留就完事。

业务员

xyxcc177 发表于 2023-2-18 22:01
给你个建议，把M-Q列的数据拷贝到另一个表中，处理完复制到原处，因为在另一个表中可删除整行，不用VBA.

就是要用vba，以前会一点，现在忘记了。

那时雨

好多天没有练手了。希望对你有帮助！

1. Sub 删除重复内容()
   
2.     Dim r&, LastRow&, Rng As Range
   
3.     LastRow = Cells(Rows.Count, "P").End(xlUp).Row
   
4.     For r = 4 To LastRow
   
5.         If Cells(r, "p").Text = Cells(r, "q").Text Then
   
6.             If Rng Is Nothing Then
   
7.                 Set Rng = Cells(r, "m").Resize(1, 5)
   
8.             Else
   
9.                 Set Rng = Union(Rng, Cells(r, "m").Resize(1, 5))
   
10.             End If
    
11.         End If
    
12.     Next r
    
13.     If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp
    
14.     Set Rng = Nothing
    
15. End Sub

复制代码

gwjkkkkk

参与一下。。。

业务员

谢谢各位，代码都没问题，我准备也练练手，哈哈。看看我七八年前写的代码，近百个模块，那还是几千行了，业余学习，没有好的注释习惯，现在有一般都不知道写了些啥;:

业务员

wodewan 发表于 2023-2-18 22:00
.................................

另外两个老师的代码也不错的