1.  合并删除单元格(定时设置)  by:sjzhouzb

 
Private Sub CommandButton1_Click()
‘by: sjzhouab
‘但是只是删除了前面的，与题意有些不同
 
t = Timer
Application.ScreenUpdating = False
For i = 1 To [a65536].End(xlUp).Row
  If Range("a" & i) <> "" And Range("a" & i) <> "序 号" And Range("a" & i) <> "分部分项工程量清单综合单价分析表" And Range("a" & i) <> "工程名称：" Then
    If Application.WorksheetFunction.CountIf(Range("a1:a65536"), Range("a" & i)) > 1 Then
      Rows(i).Select
      Selection.Delete
    End If
  End If
Next
Application.ScreenUpdating = True
MsgBox "完成，耗时" & Timer - t & "秒"
End Sub