如何批量删除工作表指定某个单元格 然后拆分多个工作簿

1336034675

一、        批量删除指定某个单元格 比如 （各个工作表内统一批量删除指定B2单元格 ）
二、        然后将四个工作表拆分到四个工作簿 （实际不止那么多）
三、        拆分后工作簿，以按照各个工作表名称命名
四、        统一调整行列大小 页面布局以第一个工作表的格式为例 便于打印



有没有VBA代码或者其他简便方式，实际中有100多个工作表需要删除 拆分 打印

3190496160

把所有工作表拆分为工作簿，很简单，有多少个工作表无所谓的，但是：
1、删除某个单元格是什么意思？不可能删除某个单元格的，只能删除某一行或者某一列，
2、 统一调整行列大小 页面布局以第一个工作表的格式为例 便于打印。就你目前的附件，工作表内就是两个单元格有数据，根据什么来调整呢？

3190496160

Sub 拆分()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name <> "说明" Then
        sh.[b2] = ""
        sh.Copy
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\目标文件\" & sh.Name & ".xlsx"
        ActiveWorkbook.Close
    End If
Next sh
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "拆分完毕！", 64, "提醒"
End Sub

3190496160

示例说明.rar (13.58 KB, 下载次数: 7)

2022-11-26 10:59 上传

点击文件名下载附件

1336034675

3190496160 发表于 2022-11-26 10:59

   厉害····    删除指定某的个单元格 实现不了·？  

1336034675

由于有些超出打印范围    类似于调整这样的页面布局·····

3190496160

1336034675 发表于 2022-11-28 08:26
厉害····    删除指定某的个单元格 实现不了·？

sh.[b2] = ""看看这句代码你就明白了，

1336034675

3190496160 发表于 2022-11-28 10:38
sh. = ""看看这句代码你就明白了，

哦 是我弄错了 应该是B1单元格    让C1往左边靠近·····

1336034675

上面说错了  应该是指定单元格B1 删除  让C1数据移动到B1那里

ykcbf1100

1336034675 发表于 2022-11-28 11:37
上面说错了  应该是指定单元格B1 删除  让C1数据移动到B1那里

2楼老师的这句代码sh.[b2] = ""改成下面这句就行了。
sh.[b1] = sh.[c1]：sh.[c1] = ""