[已解决]如何批量删除标题？

zgq75468

从财务系统导出的数据，每一页里都有标题，无法进行计算，有没有办法批量删除（只保留第一，每个标题占6行），谢谢大家了，详见除附件。 删除.rar (5.57 KB, 下载次数: 25)

2012-1-2 10:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-2 10:54

1. Sub 删除()
   
2.     Dim n As Long, i As Long
   
3.     n = [A65536].End(xlUp).Row - 42    '计算需要删除的最后一行的行号
   
4.     For i = n To 53 Step -48    '53是需要删除的第一个标题的最后一行的行号
   
5.         Rows(i - 5 & ":" & i).Delete
   
6.     Next i
   
7. End Sub

复制代码

数据多就加上锁定屏幕更新代码，这样程序运行会快点

跳转到最佳答案楼层

jiahua1010

你原始数据没有1095。
我看结果差一个数据，还以为出错了，找了半天才发现原始数据本来就少一个1095
你看看这样可以吗
删除.rar (10.17 KB, 下载次数: 13)

2012-1-2 10:40 上传

点击文件名下载附件

sunjing-zxl

1. Sub 删除()
   
2.     Dim n As Long, i As Long
   
3.     n = [A65536].End(xlUp).Row - 42    '计算需要删除的最后一行的行号
   
4.     For i = n To 53 Step -48    '53是需要删除的第一个标题的最后一行的行号
   
5.         Rows(i - 5 & ":" & i).Delete
   
6.     Next i
   
7. End Sub

复制代码

数据多就加上锁定屏幕更新代码，这样程序运行会快点

水上漂123

学习了，特别是vba代码

jiahua1010

当最后一页没满42行时，那个VBA代码好像不行。

zgq75468

jiahua1010 发表于 2012-1-2 13:45
当最后一页没满42行时，那个VBA代码好像不行。

其实你的代码要好用些，
n = [A65536].End(xlUp).Row - 42,晶哥的要手工将42改成最后的实际行数

jiahua1010

zgq75468 发表于 2012-1-2 22:14
其实你的代码要好用些，
n = [A65536].End(xlUp).Row - 42,晶哥的要手工将42改成最后的实际行数

代码还是他的好，只不过还得再加上几句代码。

jiahua1010

zgq75468 发表于 2012-1-2 22:14
其实你的代码要好用些，
n = [A65536].End(xlUp).Row - 42,晶哥的要手工将42改成最后的实际行数

这样修改之后的就不用自己去修改了。

1. Sub 删除()
   
2.     Dim n As Long, i As Long, j As Integer
   
3.     j = ([A65536].End(xlUp).Row - 5) Mod 48 ‘计算最后一页的记录行数
   
4.     n = [A65536].End(xlUp).Row - j    '计算需要删除的最后一行的行号
   
5.     For i = n To 53 Step -48    '53是需要删除的第一个标题的最后一行的行号
   
6.         Rows(i - 5 & ":" & i).Delete
   
7.     Next i
   
8. End Sub
   

复制代码