2024年4月10日发(作者：)

VBAEXCEL删除行的方法

在VBA Excel中删除行的方法有多种，可以根据不同的需求选择适合

的方法。以下是一些常见的删除行的方法：

方法一：使用Range对象的Delete方法

可以使用Range对象的Delete方法来删除其中一行或多行。具体步

骤如下：

1. 定义一个Range对象来表示要删除的行，可以使用Range对象的

Offset方法定位到要删除的行。例如，要删除第5行，可以使用以下代

码：

```vba

Dim rng As Range

Set rng = Rows(5)

```

2. 调用Range对象的Delete方法来删除行。例如，可以使用以下代

码删除第5行：

```vba

```

方法二：使用Rows对象的Delete方法

可以使用Rows对象的Delete方法来删除一组连续的行。具体步骤如

下：

1. 定义一个Rows对象来表示要删除的连续行，可以使用Rows对象

的Range属性来指定要删除的行的范围。例如，要删除第5行到第10行，

可以使用以下代码：

```vba

Dim rng As Range

Set rng = Rows("5:10")

```

2. 调用Rows对象的Delete方法来删除行。例如，可以使用以下代

码删除第5行到第10行：

```vba

```

方法三：使用AutoFilter方法

可以使用AutoFilter方法来筛选和删除符合条件的行。具体步骤如

下：

1. 开启AutoFilter，通过调用Worksheet对象的UsedRange属性的

AutoFilter方法来开启AutoFilter功能。例如，可以使用以下代码开启

AutoFilter：

```vba

lter

```

2. 设置筛选条件，通过调用Range对象的AutoFilter方法来设置筛

选条件。例如，要删除第一列中值为"abc"的行，可以使用以下代码：

```vba

Columns(1).AutoFilter 1, "abc"

```

3. 删除符合条件的行，通过使用SpecialCells方法和Delete方法

来删除筛选出的行。例如，可以使用以下代码删除符合条件的行：

```vba

On Error Resume Next

Intersect(UsedRange,

(1)).SpecialCells(xlCellTypeVisible).EntireRow.D

elete

On Error GoTo 0

```

方法四：使用For循环遍历并删除行

可以使用For循环从上至下遍历所有行并删除指定行。具体步骤如下：

1. 获取需要遍历的行数，可以使用Worksheet对象的UsedRange属

性的Rows属性获取行的范围。例如，要遍历整个工作表的行，可以使用

以下代码：

```vba

Dim lastRow As Long

lastRow = Cells(, 1).End(xlUp).Row

```

2. 使用For循环遍历并删除行，通过使用For循环从上至下遍历所

有行，并使用Delete方法删除指定行。例如，可以使用以下代码删除1

到10行：

```vba

Dim i As Long

For i = 10 To 1 Step -1

Rows(i).Delete

Next i

```

以上是一些常见的VBA Excel删除行的方法，可以根据具体情况选择

适合的方法来删除行。