求助：Excel VBA 删除指定特殊数据号所有行的全部内容？(EXCEL中如何使用VBA清除特定行内容)

EXCEL中如何使用VBA清除特定行内容

展开全部

Sub 清除()

For k = 1000 To 60 Step -1

If (Cells(k, 1) = -5 And Cells(k, 2) = 80) Or (Cells(k, 1) = 25 And Cells(k, 2) = 64) Then

Cells(k, 1).EntireRow.ClearContents

End If

End Sub功能区域为第60-1000行。

如图，要删除包含"abc"的行（或者反过来，保留包含"abc"的行，其他删除）

　　第1步，按Ctrl+F，查找abc，点【查找全部】后在结果框按Ctrl+A。如果要删除包含abc的行，则：关闭查找替换对话框，然后右键单击第1步选中的单元格之一，删除，整行。

　　要保留包含"abc"的行，则按以下步骤继续：

　　第2步，关闭查找替换对话框，按下CTRL+9，将第1步选中的单元格所在的行隐藏。

　　第3步，按F5键，定位”可见单元格“。

　　第4步，在第3步选中的单元格区域右键单击→删除，整行。

　　第5步，单击”全选“按钮，右键→取消隐藏。

楼上说zhidao的替换更简单，一定需要VBA的话，代码如下：

Option Explicit

Sub 宏1()

Dim arr, i, n, x

n = Range("f1").End(xlDown).Row

arr = Range("f1").Resize(n, 1)

For i = 1 To n

x = InStr(arr(i, 1), "组")

If x > 0 Then arr(i, 1) = Left(arr(i, 1), x)

Next i

Range("f1").Resize(n, 1) = arr

End Sub

Vba代码，若你的工作表名称没有规律可以就稍微费事点，若是有规律可以用 For each ...in...next..

sub Delete_All()

with sheets("Sheet1")

.range("A2:C5").clearContents'编辑你指定的范围，这是清除内容，删除单元格要用Delete

end with

'把这三行代码复制粘贴，然后修改Sheet名字

end sub