VBA删除行|使用VBA删除Excel行的示例
Excel VBA删除行
通常，在excel工作表中，我们有两种不同的方法来删除行，一种是键盘快捷键，另一种是使用右键单击和插入方法来删除行，但是在VBA中，我们必须使用delete命令和worksheet语句一起删除任何行。这就是如果我们需要删除单行，则给定一个单行引用，但是对于多列，我们给定多个行引用。
使用VBA删除行方法，我们可以删除所有空白行，可以根据单元格值删除行，如果任何单元格为空，也可以删除整个行。
在本文中，我们将讨论“ VBA删除行”方法。在接下来的15到20分钟内，请保持专注，以了解该概念。
如何删除行？
您可以在此处下载此VBA删除行Excel模板– VBA删除行Excel模板范例＃1
在VBA中，我们需要提及要删除的行。
代码：
子DeleteRow_Example1（）单元格（1，1）结束子
单元格（1，1）表示第一行第一列，即A1单元格。然后我们使用“删除”方法。
代码：
Sub DeleteRow_Example1（）单元格（1，1）.Delete End Sub
现在，这将删除第一个单元格。所有右侧的值将向左移动一个单元格。
范例＃2
如果要删除整行，则需要使用属性“ EntireRow”，然后需要使用“ delete”方法来删除所选单元格的整行。
代码：
Sub DeleteRow_Example2（）单元格（1，1）.EntireRow。删除结束子
例如，我在excel工作表中输入了以下几个字符。
现在，如果我运行此代码，它将删除整行而不是单个单元格。
例子＃3
我们可以通过几种方式删除该行。在上面的示例中，我们已经使用CELLS属性删除了该行，现在我们将看到如何使用ROWS属性删除该行。
现在，我们需要提及需要删除的行，比方说，我们需要删除第5行。
现在使用属性“ EntireRow”。
选择属性后，我们需要做的事情，即方法。我们需要删除该行。
代码：
Sub DeleteRow_Example3（）行（5）.EntireRow.Delete End Sub
因此，此代码将删除第五行。
例子＃4
通过使用范围对象删除多行
我们如何删除多行？
我们可以使用VBA RANGE对象删除多个行。假设您具有从A1到A6单元格的一些值。
现在，我想删除前5行，因此我可以使用Range对象将其引用为 “范围（“ A1：A5”）”
代码：
子DeleteRow_Example4（）范围（“ A1：A5”）结束子
现在，我想使用单词“ EntireRow”属性。
代码：
Sub DeleteRow_Example4（）Range（“ A1：A5”）.EntireRow End Sub
在这整行中，我们需要执行删除方法，因此请使用Delete方法。
代码：
Sub DeleteRow_Example4（）Range（“ A1：A5”）。EntireRow .Delete End Sub
现在，这将删除选定的行。
范例＃5
根据单元格值删除行
我们也可以用这个 “ EntireRow.Delete” VBA中基于单元格值删除行的方法。例如，我具有从单元格A1到A10的是和否值。
现在，我们需要删除值为“ No”的行。要执行此任务，我们需要使用带有循环的函数“ IF”来删除所有值为“ No”的行。
下面的代码将为我们完成这项工作。
代码：
Sub DeleteRow_Example5（）将k设为k的整数k = 10到1步骤-1如果Cells（k，1）.Value =“ No”，则Cells（k，1）.EntireRow.Delete End如果下一个k结束Sub
范例＃6
删除所有空白单元格行
在某些情况下，如果范围中的任何单元格为空白，我们都需要删除整行。例如，我有以下数据集。
所有彩色单元格均为空白，因此我需要删除整行。我们可以使用两套代码来执行此任务。下面是代码。
代码：
Sub DeleteRow_Example6（）Range（“ A1：F10”）。SpecialCells（xlCellTypeBlanks）.EntireRow.Delete End Sub
这将标识A1到F10范围内的空白单元格。如果找到的任何空白单元格将删除整行。
此代码的问题在于，它只会删除仅在A1到F10范围内的空白单元格中的行，但是如果任何其他单元格中的任何单元格都为空白，它将不会删除。因此，请记住这一点，我又编写了一个代码。
代码：
Sub DeleteRow_Example7（）Dim RangeToDelete作为范围Dim DeletionRange作为范围设置RangeToDelete = Application.InputBox（“请选择范围”，“空白单元格行删除”，类型：= 8）Set DeletionRange = RangeToDelete RangeToDelete.SpecialCells（xlCellTypeRowks。 。删除结束子
首先运行此代码时，它将要求您选择范围，并在您前面显示一个输入框。
选择范围后，您需要单击“确定”，它将删除所选范围内的所有空白单元格行。
