[已解决]VBA查找删除问题

龙送农

VBA查找删除问题：因“过次页”“承前页”所在的行设置不规范。想查找F列“过次页”“承前页”所在的行并删除。

最佳答案

月排行榜 / 总排行榜

芐雨

2015-1-26 14:39

[已解决]VBA自动插入行问题
http://www.excelpx.com/thread-338091-1-1.html

之前的帖子，我不是写了删除的代码吗，你打开附件就找得到

1. Sub tt()
   
2.     Dim rng As Range, lrow&, i&
   
3.     lrow = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 1 To lrow
   
5.         If Cells(i, "F") = "过次页" Or Cells(i, "F") = "承前页" Then
   
6.             If rng Is Nothing Then Set rng = Cells(i, "F") Else Set rng = Union(rng, Cells(i, "F"))     'F列的两个单元格
   
7.         End If
   
8.     Next
   
9.     If Not rng Is Nothing Then rng.EntireRow.Delete
   
10. End Sub

复制代码

跳转到最佳答案楼层

芐雨

[已解决]VBA自动插入行问题
http://www.excelpx.com/thread-338091-1-1.html

之前的帖子，我不是写了删除的代码吗，你打开附件就找得到

1. Sub tt()
   
2.     Dim rng As Range, lrow&, i&
   
3.     lrow = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 1 To lrow
   
5.         If Cells(i, "F") = "过次页" Or Cells(i, "F") = "承前页" Then
   
6.             If rng Is Nothing Then Set rng = Cells(i, "F") Else Set rng = Union(rng, Cells(i, "F"))     'F列的两个单元格
   
7.         End If
   
8.     Next
   
9.     If Not rng Is Nothing Then rng.EntireRow.Delete
   
10. End Sub

复制代码

龙送农

芐雨 发表于 2015-1-26 14:39
[已解决]VBA自动插入行问题
http://www.excelpx.com/thread-338091-1-1.html

老师已经帮我解决，我没有下载您的附件看，谢谢了!!这样也好,有机会给老师一个佳.

龙送农

老师：如果同时删除“过次页”“承前页”、“本月合计”“本年累计”，怎么做？