Question

因此，如果某个列中该行的单元格为空，则我试图编写VBA代码以删除Excel中的整行。我对VBA完全陌生，因此我只需要学习编码即可。我认为我的方法论不高，但是它总是在工作表中该特定列的最后一行保留空白。在某些情况下，它在该特定列中留下5行并留有空白。任何帮助修复将不胜感激，谢谢！

我还希望将其放置在我可以在工作簿中单击一个按钮的位置（而不是在单独的工作表上），并且它将对特定工作表执行删除行的方法。如果有可能，我是否可以将所有方法从一种工作簿转移到另一种？

我已经尝试了一些使用VBA来实现这两种方法的方法，但这是我第一次使用VBA，所以对我来说，还有很多新鲜事物。

Private Sub Button_Click()
Dim LR As Long
Application.ScreenUpdating = False
    For LR = Sheets("Test2").Range("AB" & Rows.Count).End(xlUp).Row To 2 Step 1
        If Range("AB" & LR).Value = "" Then
            Rows(LR).EntireRow.Delete
        End If
    Next LR
Application.ScreenUpdating = True
End Sub

我希望当我按下工作表中的按钮时，该列中所有带有空白的行都将被删除。

Answer 1

如果该列中的空白单元格真正为空白，而不是公式（例如""）返回的零长度字符串，则SpecialCells可以一次将其全部删除。

Private Sub Button_Click()

    Intersect(Me.Columns("AB"), Me.Cells.SpecialCells(xlCellTypeBlanks)).EntireRow.Delete

End Sub

对于您自己的代码，应在循环中向后退一步（步骤-1）。此外，您不应在最后一个单元格的AB列中查看。如果最后一行中有空格，则将忽略它们。

VBA：删除特定列中具有空白的行并在Excel中创建一个按钮

1 个答案: