[已解决]帮忙修改VBA

guogongyi

帮忙修改VBA。现在要求：完成目前的操作后，把黄色区域也删除掉。谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2013-8-29 20:05

1. Sub 清除()
   
2.     Dim R As Range
   
3.     For x = 2 To Sheets.Count
   
4.         Set R = Sheets(x).Range("B:B").Find(1)
   
5.         If Not R Is Nothing Then Sheets(x).Rows("2:" & R.Row - 1).Delete
   
6.     Next x
   
7. End Sub

复制代码

跳转到最佳答案楼层

1032446692

没看到你说的 结果工作簿

guogongyi

1032446692 发表于 2013-8-29 19:47
没看到你说的 结果工作簿

意思就是增加把黄色区域也删除掉的功能

zjdh

1. Sub 清除()
   
2.     Dim R As Range
   
3.     For x = 2 To Sheets.Count
   
4.         Set R = Sheets(x).Range("B:B").Find(1)
   
5.         If Not R Is Nothing Then Sheets(x).Rows("2:" & R.Row - 1).Delete
   
6.     Next x
   
7. End Sub

复制代码

guogongyi

谢谢，非常好用，我还有一个不请之请，能不能把下面的“签发”行也一起删除。

zjdh

1. Sub 清除()
   
2.     Dim R As Range
   
3.     For x = 2 To Sheets.Count
   
4.         Set R = Sheets(x).Range("B:B").Find(1)
   
5.         If Not R Is Nothing Then Sheets(x).Rows("2:" & R.Row - 1).Delete
   
6.         Sheets(x).Range("B65536").End(3).EntireRow.Delete
   
7.     Next x
   
8. End Sub
   

复制代码

guogongyi

太厉害了，真好用，加分。