如何选择性的删除表格重复的行

xcharmer

制作来了一个vba代码
使用前提是：
1、当前表在最左边的第一个。
2、删除是删除整行，如果有其他需要，请发示例过来
3、判断是用“材料费中：暂估价合计”这个语句为判断。如果表格式不变则可以使用

1. <div class="blockcode"><blockquote>Sub 查找删除()
   
2.   Dim i
   
3.   '定义一个变量记录行号
   
4.   For i = ActiveWorkbook.Sheets(1).Range("c1").End(xlDown).Row To 1 Step -1
   
5.     '从最后一排向前循环
   
6.     If Cells(i, 3) = "材料费中：暂估价合计" Then
   
7.     '如果第N行的第三列的值是“材料费中：暂估价合计”
   
8.       Rows(i & ":" & i).Delete Shift:=xlUp
   
9.       '将第N行全行删除
   
10.     End If
    
11.   Next i
    
12. End Sub

复制代码

xcharmer

zkyt 发表于 2016-9-29 09:50
谢谢您的回帖。
由于没有在excel中运用过vba代码，所以不清楚如何把您的代码运用到excel中。在百度上查 ...

如果方便，就把原表格发过来，我改成比较适用的，靠范例来讲，只能说是自己能改一部分代码，将程序运行起来。如果你不会VBA，那就发原型过来吧。

xcharmer

这个代码你试试呗，应该可以用的