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
这个题目,看不懂,要有截图才行追问这是源程序 我无法问 发帖人