[已解决]《以解决》感谢老大帮忙，ABC内容等于大于3，D等于空，满足条件则...

neicezhanghao

ABC内容等于大于3，D等于空（无内容）！满足条件！则清除
附件里只是简单举例 实际内容庞大 因为效率关系 要用VBA 实现！！！谢谢！！

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-18 18:17

1. Sub xx()
   
2.     Dim rng As Range
   
3.     Set rng = Sheet1.Range("B19:E25") '区域自己设置
   
4.     For i = 1 To rng.Rows.Count
   
5.         If rng(i, 1) >= 3 And rng(i, 2) >= 3 And rng(i, 3) >= 3 And rng(i, 4) = "" Then
   
6.             For j = 1 To 4
   
7.                 rng(i, j).ClearContents
   
8.             Next
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub xx()
   
2.     Dim rng As Range
   
3.     Set rng = Sheet1.Range("B19:E25") '区域自己设置
   
4.     For i = 1 To rng.Rows.Count
   
5.         If rng(i, 1) >= 3 And rng(i, 2) >= 3 And rng(i, 3) >= 3 And rng(i, 4) = "" Then
   
6.             For j = 1 To 4
   
7.                 rng(i, j).ClearContents
   
8.             Next
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

neicezhanghao

老司机带带我 发表于 2016-6-18 18:17

谢谢 老大 嘿嘿