如果达到条件，删除

nnsea

Sub 删除重复标题()
    Sheets("1-导入数据").Select
    If Range("C4") = Range("C3") Then
    Rows("4:4").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveWorkbook.RefreshAll
    MsgBox "成功删除重复标题！由会计帮帮网开发设计！"
    Else
    MsgBox "没有可以删除标题！由会计帮帮网开发设计！"
    End If
End Sub