2、工作簿（thisworkbook）拆分为多个表（sheet）

最新推荐文章于 2024-09-09 17:04:36 发布
最新推荐文章于 2024-09-09 17:04:36 发布
阅读量133 收藏
点赞数 3
分类专栏： VBA 文章标签： 汇编
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_73737526/article/details/138795350
版权 
Sub 拆分工作簿()
    Application.ScreenUpdating = False
    Dim sht As Worksheet
    For Each sht In Sheets
        sht.Copy
        ActiveWorkbook.SaveAs FileName:="D:\data\" & sht.Name & ".xls"'此处D:\data\改为你存放拆分文件的文件夹地址
        ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
End Sub

年景@
关注
  • 3
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
多sheet分裂保存_工作簿多个sheet拆分_
09-30
在Excel中，有时我们需要将一个包含多个工作表的工作簿拆分成多个单独的工作簿，以便于管理和操作。这个过程被称为“多sheet分裂保存”，这在处理大量数据或进行专业化数据分析时非常常见。标题“多sheet分裂保存_...
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
weixin_45355881的博客
04-18 2274
VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA之让新开的excel文件能一键使用宏的设置
amamiyayouko的博客
03-29 892
如何让新开的excel文件能一键使用宏的设置呢? 1.首先要把宏代码,保存到excel库里 2.新建一个excel文件出来,把宏代码复制到模块里 例如:拆分文件代码 Sub test() Dim sht As Worksheet For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=“d:\data” & sht.N...
复制其他Excel文件的sheet到本Excel文件中来
fantish的博客
09-17 2672
在.xlsm文件中打开Visual Basic编辑器，在文本编辑器中输入以下VBA程序，实现复制sheet功能。 Private Sub all2here_Click() '其他sheet表复制到此Excel中 MsgBox "欢迎开始载入……" Dim wb, arr, Sh As Worksheet, pic As Shape Application.Scre...
Worksheet对象 应用示例
好好学习，天天向上！
04-12 2236
<br />Worksheet对象代表Excel工作表，Worksheets集合对象代表Excel工作表的集合。下面，我们来探讨Worksheet对象和Worksheets集合的一些属性和方法的应用。Worksheet(s)对象应用基础<br />[应用1]激活工作表（Activate方法）<br />使用Activate方法来激活某工作表，例如：ThisWorkbook.Worksheets("Sheet1").Activate上述代码使得含有该代码的工作簿中工作表Sheet1成为活动工作表。<br />
Excel.合并多张sheet
星图
05-27 237
新建一张sheet 鼠标放在sheet标签上右键 选择查看代码，粘贴下面代码，运行. Sub CombineSheet() Dim i, j, k, n As Integer n = 1 For i = 2 To ThisWorkbook.Sheets.Count For j = 2 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count Thi.
excel 自动拆分工作簿中的多个工作表为文件
03-27
### Excel自动拆分工作簿中的多个工作表为文件 #### 概述 在日常工作中，我们经常需要处理大量的Excel数据。有时，一个工作簿中包含了多个工作表，而我们需要将这些工作表分别保存为独立的文件。手动进行这项操作...
VBA实现Excel表格根据列拆分工作簿，再由工作簿根据列拆分成工作表.txt
11-30
假设我们有一个包含多列数据的工作簿，我们想要基于特定列的值将其拆分为不同的工作簿，每个工作簿内再根据另一列的值拆分为多个工作表。这个过程可以分为以下几个步骤： 1. **选择拆分依据**：用户通过弹出窗口...
017批量将工作表转换为独立的工作簿共1页.pdf.zip
11-19
在Excel中，有时我们需要将一个包含多个工作表的工作簿拆分成多个独立的工作簿，以便于管理、分享或处理。这个过程通常被称为“批量将工作表转换为独立的工作簿”。这是一项非常实用的技能，尤其当你处理的数据量大...
多工作簿指定工作表，全部数据汇总
12-03
以下是一些关于如何使用VBA来实现多工作簿指定工作表数据汇总的关键知识点： 1. **VBA基础**：VBA是Microsoft Office套件中的编程语言，它允许用户自定义功能，创建宏，以及自动化各种任务。在Excel中，你可以通过...
thisworkbook与activeworkbook之间复制的解决办法
weixin_43721369的博客
03-20 7198
在Application对象体系中，ThisWorkbook对象是VBA顶级对象Application下的一个特殊对象，代表当前（VBA代码所在的）工作薄对象。ActiveWorkbook对象也是VBA顶级对象Application下的一个特殊对象，代表当前激活的工作薄对象。 VBA编程中有时候会用到非thisworkbook的表格复制到thisworkbook工作簿中，如VBA在workbo...
表格Sheet
07-12 421
Sheets.Add(After :=Sheets(Sheets.Count)) Sheets.Add用于创建新表，after表示创建在某一个sheet之后，Sheets(Sheets.Count)表示最后一个表 Sheets.Add或 WorkSheets.Add方法用于新建工作表、图表、宏表，Sheets.Add( Before , After , Count, Type )...
VBA编程中的 sheet1 与 sheets(1)的区别
weixin_33893473的博客
02-06 9619
【自己理解】sheet1是一个专有名词，不是任何对象的属性，只能单独使用，特指代码所在工作簿的那个sheet1(和顺序无关，是固定的一个表，sheets(1)则和顺序有关)。 参考资料： 1.代码中一旦使用工作表的代码名称，如：Debug.Print Sheet1.Cells(1)，那么代码句中的Sheet1始终代表代码句所在的工作簿中的那个Sheet1；2.如上述第1点所述，ThisWork...
CSE12 汇编
w976j_的博客
09-05 700
Windowsdata.csv).data.csv。
2.3.1 协程设计原理与汇编实现coroutine
weixin_44925529的博客
09-09 825
client端：不只是dns请求，http请求、redis数据请求，mysql请求，mongodb请求的同步异步类似server端：进程同一个，但是server的网页里的一堆小按钮子请求，肯定做成异步，不然太卡了， server 做到消息队列，push到任务再执行，也是一种异步，比同步快，非串行上面是同步，适合人类思考，下面是异步快，任务检测io，callback通知处理读写，把任务压到线程池。
Linux 技巧汇编
极客七
09-06 866
Linux相关经验总结, 技巧汇编,笔记,命令,# 10个重要的Linux ps命令实战 ## 显示所有当前进程 ## 根据用户过滤进程 ## 通过cpu和内存使用来过滤进程 ## 通过进程名和PID过滤 ## 根据线程来过滤进程 ## 树形显示进程 ## 显示安全信息 ## 格式化输出root用户（真实的或有效的UID）创建的进程 ## 使用PS实时监控进程状态 Python 云服务器应用 | Https应用 | 宝塔面板设置服务器进程定时重启 CentOS/RedHat 搭建Dotnet服务器 云镜
笔记整理—内核！启动！—kernel部分（2）从汇编阶段到start_kernel与内核进程
qq_35229394的博客
09-08 763
整理一下学习的内容，个人观点可能存在错误。本章主要正对kernel的汇编阶段以及printk函数进行说明和内核的前3个进程进行说明，下章将继续本章对1号进程进行说明。
C与汇编之间的相互调用（29）
最新发布
weixin_44767571的博客
09-09 264
注意： 程序通过 r1 -r4 来保存 传递的参数，如果 超过了 4个参数怎么办， 那就 放到栈里面。如果是汇编调用 C语言， 调用的指令就不会 自动的去设置好 R0-R4 的参数了。当调用 C语言函数的时候，就默认 R0 ， R4 ， 存放的是参数。会自动的将 a 放到r0 里面，将b 放到r1 里面。就默认 超过R5 的参数放到 栈里面 ，从右到左。然后，处理完之后，需要 从栈中去掉相应的 参数。子程序的返回结果 会放到R0 里面。3 然后是 汇编语言调用 C语言。首先是 有了一个汇编的加法函数。
Excel拆分成多个工作簿vba代码
07-14
以下是一个示例的VBA代码，用于将Excel工作簿拆分成多个工作簿： ```vba Sub SplitWorkbook() Dim OriginalWorkbook As Workbook Dim NewWorkbook As Workbook Dim OriginalWorksheet As Worksheet Dim NewWorksheet As Worksheet Dim Cell As Range Dim RowCounter As Long Dim LastRow As Long Dim SplitColumn As Range Dim UniqueValues As Collection Dim Value As Variant ' 设置原始工作簿和工作表 Set OriginalWorkbook = ThisWorkbook Set OriginalWorksheet = OriginalWorkbook.Worksheets("Sheet1") ' 替换为您要拆分的工作表名称 ' 设置拆分列范围 Set SplitColumn = OriginalWorksheet.Range("A:A") ' 替换为您要拆分的列 ' 获取唯一值集合 Set UniqueValues = New Collection On Error Resume Next For Each Cell In SplitColumn UniqueValues.Add Cell.Value, CStr(Cell.Value) Next Cell On Error GoTo 0 ' 遍历唯一值并创建新工作簿 For Each Value In UniqueValues ' 创建新工作簿并复制原始工作表的结构和数据 Set NewWorkbook = Workbooks.Add Set NewWorksheet = NewWorkbook.Worksheets(1) OriginalWorksheet.Copy Before:=NewWorksheet ' 删除除唯一值之外的行 With NewWorksheet LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row For RowCounter = LastRow To 2 Step -1 ' 从最后一行开始往上遍历 If .Cells(RowCounter, 1).Value <> Value Then .Rows(RowCounter).Delete End If Next RowCounter End With ' 保存新工作簿 NewWorkbook.SaveAs "路径\" & Value & ".xlsx" ' 替换为您要保存的路径和文件名 ' 关闭新工作簿 NewWorkbook.Close SaveChanges:=False Next Value End Sub ``` 请注意，您需要根据实际情况进行以下修改： 1. 将`"Sheet1"`替换为您要拆分的工作表名称。 2. 将`"A:A"`替换为您要拆分的列范围。 3. 将`"路径\" & Value & ".xlsx"`替换为您要保存的路径和文件名。 运行此代码后，它将根据指定的列中的唯一值，将原始工作簿拆分为多个新的工作簿，并将每个唯一值命名为文件名。每个新工作簿将只包含与对应唯一值匹配的行。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值