本文介绍了一段VBA代码，该代码用于在Excel工作表中搜索包含关键字Error的单元格，并删除这些单元格所在的列。通过循环查找并删除的方式，实现了对错误标记数据的有效清理。
Sub Find_Error()
Dim rng As Range 'range=区域
Dim what As String 'String=字符串?
what = "Error" ' 关键字 Error
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Columns(rng.Column).Delete
End If
Loop
End Sub
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
