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
Next
End Sub功能区域为第60-1000行。
Excel VBA找到特定字符并删除其所在行以下的所有记录。
如图，要删除包含"abc"的行（或者反过来，保留包含"abc"的行，其他删除）
第1步，按Ctrl+F，查找abc，点【查找全部】后在结果框按Ctrl+A。如果要删除包含abc的行，则：关闭查找替换对话框，然后右键单击第1步选中的单元格之一，删除，整行。
要保留包含"abc"的行，则按以下步骤继续：
第2步，关闭查找替换对话框，按下CTRL+9，将第1步选中的单元格所在的行隐藏。
第3步，按F5键，定位”可见单元格“。
第4步，在第3步选中的单元格区域右键单击→删除，整行。
第5步，单击”全选“按钮，右键→取消隐藏。
Excel中用vba删除特定字符后面的所有内容
楼上说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
excel中用vba快速删除多个工作表内指定的内容
Vba代码，若你的工作表名称没有规律可以就稍微费事点，若是有规律可以用 For each ...in...next..
sub Delete_All()
with sheets("Sheet1")
.range("A2:C5").clearContents'编辑你指定的范围，这是清除内容，删除单元格要用Delete
end with
'把这三行代码复制粘贴，然后修改Sheet名字
end sub