0

我想从我创建的 excel 表中清除所有记录（该表只是已加边框的行和列的列表）。目前使用下面的代码，我可以进行一些验证，其中可以删除 47 或更高的一行。但这只会在我单击按钮时一次删除一行：

Sub Clear1st()

Dim iRet1 As Integer
Dim iRet2 As Integer
Dim iRet3 As Integer
Dim strPrompt1 As String
Dim strPrompt2 As String
Dim strPrompt3 As String
Dim strTitle1 As String
Dim strTitle2 As String
Dim strTitle3 As String

    Application.ScreenUpdating = False

    ActiveSheet.Unprotect

    strPrompt1 = "Only rows 47 and higher may be cleared"
    strTitle1 = "Deletion Error"
    strPrompt2 = "Are you sure you want to clear all records?"
    strTitle2 = "Clear Records Confirmation"
    strPrompt3 = "There is no recods to clear."
    strTitle3 = "Data Missing"

    If Selection.Row <= 46 Then
    iRet1 = MsgBox(strPrompt1, vbOKOnly, strTitle1)
        If iRet1 = vbOKOnly Then
       Exit Sub
        End If
    End If

    If Application.CountA(ActiveCell.EntireRow) = 0 Then
        ElseIf Selection.Row < 47 Then
    iRet3 = MsgBox(strPrompt3, vbOKOnly, strTitle3)
        If Ret3 = vbOKOnly Then
       Exit Sub
        End If
    End If
    If Selection.Row >= 47 Then
    iRet2 = MsgBox(strPrompt2, vbYesNo, strTitle2)
        If iRet2 = vbNo Then
       Exit Sub
    Else
        If iRet2 = vbYes Then

    Selection.EntireRow.Delete

    End If
        End If
            End If

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

    Application.ScreenUpdating = True

End Sub

我的问题是我似乎无法弄清楚的是，当我单击按钮时，我希望它从表中删除所有记录。

因此，如果用户单击按钮，从列 JM 之间的第 47 行开始，它将删除所有行。但是我怎样才能让它一次删除所有记录呢？就像我说的那样，表格行只是边框，使它看起来像行（J2：M2）是它抓取有边框的行，复制它并将其添加到表格中。

这是一张表格的截图（表格中的行数不同，但截图从 47 到 71）：

http://www.dropviewer.com/v.php?i=527a891790213.png

4

1 回答 1

0

不确定我是否完全理解你想要的结果，但是用这样的Selection.EntireRow.Delete东西替换你的陈述应该会有所帮助：

    With ActiveSheet
       Rows("47:" & .Rows.Count).Delete
    End With
于 2013-11-06T18:52:09.670 回答