[已解决]按条件清除区域的内容

yiniuniu

按条件清除区域的内容

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-5-31 10:08

代码如下：

1. Sub ss()
   
2.     Dim n&, rng As Range
   
3.     n = Sheet1.Cells(Sheet1.Rows.Count, 9).End(xlUp).Row
   
4.     For Each rng In Sheet1.Range("K2:K" & n)
   
5.         If rng.Value = [E2] Then
   
6.             rng.Resize(1, 3).Offset(0, -2).ClearContents
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

代码如下：

1. Sub ss()
   
2.     Dim n&, rng As Range
   
3.     n = Sheet1.Cells(Sheet1.Rows.Count, 9).End(xlUp).Row
   
4.     For Each rng In Sheet1.Range("K2:K" & n)
   
5.         If rng.Value = [E2] Then
   
6.             rng.Resize(1, 3).Offset(0, -2).ClearContents
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

yiniuniu

老司机带带我 发表于 2016-5-31 10:08
代码如下：

当I列无数值就无法清除后面两个单元格内容了

老司机带带我

之前区域是参照I列的，对应的代码是n = Sheet1.Cells(Sheet1.Rows.Count, 9).End(xlUp).Row
如果需要参照K列，那就改成n = Sheet1.Cells(Sheet1.Rows.Count, 11).End(xlUp).Row吧，如果有其他需求，再提吧！

1. Sub ss()
   
2.     Dim n&, rng As Range
   
3.     n = Sheet1.Cells(Sheet1.Rows.Count, 11).End(xlUp).Row
   
4.     For Each rng In Sheet1.Range("K2:K" & n)
   
5.         If rng.Value = [E2] Then
   
6.             rng.Resize(1, 3).Offset(0, -2).ClearContents
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

yiniuniu

老司机带带我 发表于 2016-5-31 11:17
之前区域是参照I列的，对应的代码是n = Sheet1.Cells(Sheet1.Rows.Count, 9).End(xlUp).Row
如果需要参照K ...

还需高手帮忙一下，
中间符合条件清除内容之后把以下的内容向上移填充空的行