请高手:写一个EXCEL代码,帮帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/25 17:55:14
具体内容是:如单元格内含有这个,就不改变.如果没有,则删除.因为我一次要处理很多单元格.拜托了!

按alt+f11 编辑一个模块
Sub check()
Dim a As Integer
For a = 1 To 100
for b = 1 to 100
If Cells(a, b).Value <> "123" Then
Cells(a, b).Select
Cells(a, b).Value = ""
End If
next b
Next a
End Sub

在引号中把123改成你需要的保留内容就可以

sub test()

dim x as range
for each x in range("z") '"z"=工作区域
if range(x)<> "y" then '"y"=要等于的值
range(x).value=""
end if
next
end sub