excel中的数据中删除超出范围的错误数据循环语句怎样写!谢谢!
发布网友
发布时间：2022-04-23 14:47
共3个回答
热心网友
时间：2023-05-25 20:19
For Each rg In Range("a1:c10") '选择区域
你针对a1:c10修改就可以了
Dim s As Double, m As Double, rg As Range，Rng as range
m = Val(InputBox("大数")) '需要大于的数
s = Val(InputBox("小数")) '需要小于的数
set rng=range("a1:c10") '这是修改区域的地方
For Each rg In rng '选择区域
If rg < s Or rg > m Then
rg.ClearContents
End If
Next
End Sub追问谢谢回复，之前就是用的zuhi他的代码。
热心网友
时间：2023-05-25 20:19
你是想奇数列和偶数列设置不同的条件，分别删除，是这样理解吗？如是，参考下面代码（区域范围自己更改）：
Sub delete()Dim s As Double, m As Double, rg As Range
m = Val(InputBox("第一组大数")) '第一组需要大于的数
s = Val(InputBox("第一组小数")) '第一组需要小于的数
m1 = Val(InputBox("第二组大数")) '第二组需要大于的数
s1 = Val(InputBox("第二组小数")) '第二组需要小于的数
For Each rg In Range("c2:z10") '选择区域
If ((rg < s Or rg > m) And rg.Column Mod 2 = 1) Or ((rg < s1 Or rg > m1) And rg.Column Mod 2 = 0) Then
rg.ClearContents
End If
Next
End Sub
追问先谢谢您！这段时间未关注此贴，抱歉晚回复您！我试了下代码，如果数据在C2:Z65536区间时，程序运行非常缓慢，之前用您的那组单列代码，上限速度很快，下限就非常慢，后来我用 ‘ 屏蔽下限删除，能否发给我您的邮箱，我把做好的表格发给您，您帮忙看看呢？谢谢指教！我的邮箱zyq75211@139.com
来自：求助得到的回答
热心网友
时间：2023-05-25 20:20
