[已解决]这个代码能简化吗？

liwenhong

请看附件： 有条件的删除0.rar (11.95 KB, 下载次数: 12)

2014-4-17 14:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-17 14:52

1. Sub znlr() '智能录入
   
2.     Dim x As Integer
   
3.     For x = 6 To 300
   
4.          For j = 7 To 9
   
5.              If Application.IsText(Cells(x, j)) Then Range(Cells(x, 4), Cells(x, 6)) = ""
   
6.              If Cells(x, 4) = "" Then If IsNumeric(Cells(x, j)) Then Cells(x, j) = ""
   
7.          Next
   
8.     Next x
   
9. End Sub
   

复制代码

看看这样对不对

跳转到最佳答案楼层

grf1973

1. Sub znlr() '智能录入
   
2.     Dim x As Integer
   
3.     For x = 6 To 300
   
4.          For j = 7 To 9
   
5.              If Application.IsText(Cells(x, j)) Then Range(Cells(x, 4), Cells(x, 6)) = ""
   
6.              If Cells(x, 4) = "" Then If IsNumeric(Cells(x, j)) Then Cells(x, j) = ""
   
7.          Next
   
8.     Next x
   
9. End Sub
   

复制代码

看看这样对不对

liwenhong

grf1973 发表于 2014-4-17 14:52
看看这样对不对

佩服！十分感谢！