vba將第一列内容是LINE的數據,整行刪除
时间: 2024-03-03 14:52:51 浏览: 18
您可以使用下面的 VBA 代码来删除第一列中包含 "LINE" 的整行数据。
```vb
Sub DeleteRowsWithLine()
Dim LastRow As Long
Dim i As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 1 Step -1
If Range("A" & i).Value = "LINE" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
```
请注意,此代码将删除包含 "LINE" 的整行数据。如果您只想删除包含 "LINE" 的第一列数据,可以使用以下代码:
```vb
Sub DeleteColumnWithLine()
Dim LastRow As Long
Dim i As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 1 Step -1
If Range("A" & i).Value = "LINE" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub
```
请确保在运行代码之前备份您的数据,并使用正确的工作表引用。