如何取得指定工作溥的所有工作表？

marcoleung 2005-03-22 12:48:25

如何取得指定工作溥的所有工作表？

...全文

51 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

88391788 2005-03-22

打赏
举报

回复

？请问楼下的，表的名字不是sheet开头的自己改的可以吗用楼上的代码

BTbug 2005-03-22

打赏
举报

回复

Dim i As Integer
Dim sSheets() As String '存储Sheet表的名称

For i = 0 To Sheets.count - 1
ReDim Preserve sSheets(i)
sSheets(i) = Sheet(i).Name
Next i

方法一：存在缺陷：选中所有单元格，批量生成公式时候，每次需要点击进入工作表点击单元格--进入编辑状态，然后公式才会生效使用公式如下： =MID(CELL("filename"),FIND("]",CELL("filename"))+1,99) 附件下载地址：点击下载方法二：使用宏编程进行复制，代码如下： Sub a() For i = 1 To Act...

工作中，我们有时会需要将多个工作表Sheet的名称提取出来，制作成一个目录如果一个一个去复制粘贴，效率肯定是很低的，如果Sheet数量很多，会严重影响我们的工作进度，那该如何处理呢？我们可以用VBA的方法快速处理：步骤： Step1: 首先调出【开发工具】选项卡，单击【文件】选项卡-【选项】-【自定义功能区】，在主选项卡中，把【开发工具】前面的“√”选上，然后确定即可 Step2：单击【开发工具】选项卡，在“代码”选项组中选择“Visual Basic”，弹出【模块代码】编辑框，选择Microsof

格式化的表格数据汇总，特点是每个表格字段相同、排序一致、数据量不等、文件数量多。就可以使用VBA批量按顺序打开多个文件，分别复制多个文件中的表格到同一个文件中，实现文件的汇总；采用循环的方式，分别复制各个表中有数据的区域，以追加的方式粘贴到同一个表中，即实现了对多个工作表内容的合并。

此前介绍了一键批量汇总工作簿和工作表的方法。简单介绍起见，当时汇总工作表的思路是将各个表格中的内容一股脑复制粘贴到当前工作表中。但这样带来的问题是汇总效果不理想，一是汇总表格中会重复出现标题行，二是实际工作中我们未必需要汇总整个表，也许只需要汇总特定的几列数据。现在我们对汇总数据的自定义方法进行优化。

将同一文件下的多个工作簿的数据汇总为一个工作表

2,503

社区成员

10,829

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章