如何批量删除同一工作簿内所有工作表中的某一块内容？

MrTiger

在同一个工作簿中，有数百个工作表，每个工作表中的行数不同，有的只有几行，有的有几千行，甚至上万行。但是每个工作表的最尾部三行显示是打印人:某某某，打印日期：2022/3/21，以及“共100个工作表，本表是第00025个”。。。。有没有办法统一批量把所有工作表的最下面这三行同时删除？
手动删除太慢了，实际中每个工作簿都是几十上百个工作表。所以有同时删除的办法就好了。谢谢~~~~~

紫色海水

VBA遍历工作表，定位相关行，删除即可

MrTiger

紫色海水 发表于 2022-3-21 15:18
VBA遍历工作表，定位相关行，删除即可

你好，能不能详细讲解一下，谢谢！

minchar

录制宏相对简单一点。
不知道列数据怎么分布，数据区有没有空单元格，所有上传附件才能解决！

3190496160

凭空想想是写不出让你满意的代码的，因为，写代码得看你的工作表结构而定，所以，要得到完美解决，最好是上传你的excel附件

MrTiger

3190496160 发表于 2022-3-21 19:39
凭空想想是写不出让你满意的代码的，因为，写代码得看你的工作表结构而定，所以，要得到完美解决，最好是上 ...

你好，就是附件这种文件。这只是其中一个工作簿。里面的每个表最下面都有打印人和打印日期以及页号，要批量把所有工作表下面这的个部分都删除。

因为源文件太大，我删除了一些表格。大致就都是这些表。每个表最下面的内容是固定的。表太多，一个表一个表删除，太费时间了，所以想找大神问一下解决办法~~~谢谢

3190496160

Sub 删除行()
For Each sh In Sheets
    r = sh.Cells(Rows.Count, 6).End(xlUp).Row
    sh.Rows(r - 1 & ":" & r).Delete
Next sh
MsgBox "ok!"
End Sub

3190496160

2211-4103科目汇总表.rar (1.17 MB, 下载次数: 9)

2022-3-22 08:25 上传

点击文件名下载附件

gmafhnpl

Sub tt()
Dim sht As Worksheet
Dim i As Double
For Each sht In Worksheets
    sht.Activate
    For i = 50000 To 5 Step -1
        If Cells(i, 6) <> "" Then
          sht.Range(Cells(i - 1, 1), Cells(i, 9)).Select
          Selection.ClearContents
          Exit For
        End If
    Next
Next
End Sub

jany1312

3190496160 发表于 2022-3-22 08:25
Sub 删除行()
For Each sh In Sheets
    r = sh.Cells(Rows.Count, 6).End(xlUp).Row

这个执行了不行，显示类型错误