删除和清除VBA

nnsea

Sub 删除()
    Rows("6:100000").Select
    Selection.Delete Shift:=xlUp
    Range("表1[[账务流水号]:[备注]]").Select
    Selection.ClearContents
    Range("表1[账务流水号]").Select
    MsgBox "一键清除完成，由会计帮帮网开发设计！"
    ActiveWorkbook.RefreshAll
End Sub

Sub 删除标题()
    Sheets("导入月账单").Select
    If Range("C4") = Range("C5") Then
    Rows("5:5").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    MsgBox "重复标题已删除，由会计帮帮网开发设计！"
    Else
    MsgBox "没有可以删除标题！由会计帮帮网开发设计！"
    End If
End Sub