用宏拆分excel工作表(宏拆分表格怎么弄)

1. 宏拆分表格怎么弄

利用宏来解决，思路是：

先计算要依据分表的列有多少非重复值，也就说要分成多少个表

通过循环筛选出所有不重复的值及其他的数据，粘贴到新sheet或新工作簿中。

附件里有两个宏，一个是在同一文件中分成多个sheet，一个是分成单独的多个excel文件

2. 如何用宏拆分Excel表格

步骤如下：

1、将销售数据按照产品分类汇总后，点击截图中框出的【选项】→【显示报表筛选页】，即可把每一类都生成一个单独的sheet页。

2、接着用一个工具将各个sheet页拆分成多个excel表，即可得到你想要的。工具介绍如下：

有一个APP叫做“

Merge Excel Files

①

合并excel表中的多个sheet页到一个sheet页中

②拆分excel表中的多个sheet页到多个excel表中（即一个sheet页为一个excel文件）；

③合并多个excel表到一个excel表中；

题主的问题是“Excel中有好多个sheet，如何将这些sheet内的数据汇总到一张表中？”，即上述软件功能的第1条。现在拿我这边的一个“订购”表实际操作一下，目的是合并“订购”表中的sheet1、sheet2以及sheet3为一个sheet页。具体操作如下：

a、首先将数据导入到“

Merge Excel Files

b、我这边是选择的垂直合并，即从上到下合并数据。然后点击添加所有文件，即将我们需要合并的三个sheet页都选择合并。如下图所示。

c、最后点击菜单栏的“merge excel”按钮，合并并导出最终合并文件即可。

“

Merge Excel Files

软件的获取方式如下：可自行网上搜索下载或者留言发送。

3. 用宏拆分表格

如果其他单元格相对比较连续，不是很分散的话，你可以一次性选中之后同时拆分。

另外Word有一个重做的功能键，就是你想重复某一操作时，就在做完这个操作之后，不要做其他任何操作，用鼠标选中需要这个操作的地方，按下重做功能键，Word会自动操作，这个功能键就是F4。

当然如果你需要重复的多个操作的组合或者比较复杂的话，建议使用宏功能，保存下这个组合操作，以后任何时候重复都可以调用。

4. 怎么用宏拆分工作表

方法一：建议使用excel中的分列功能

1.先在“3+4”列后插入两列，然后选中“3+4”列，点击数据-分列-下一步。

2.分隔符号内选其他，在空内输入“+”号，点击下一步。

3.点击完成，即可将“3+4”列分成两列数据。

4.在后一列进行前两列的计算。

5.“5*6”使用方法同上，在分隔符号内选中其他，在后面空内输入“*”号。最后再将这两列单独计算的结果进行相乘。

这组数据，没有直接计算公式，可以对数据进行拆分，再重新整合。

方法二：使用excel中的一个宏表函数evaluate来实现这个功能

选中需要生成结果的单元格，即先选中C1单元格。选中单元格，单击鼠标右键，找到下拉菜单中“定义名称”选项，点击进入对话框。或者选择菜单栏的“公式”选项，再选择“定义名称”选项中的“定义名称”，点击进入对话框。

在弹出的“新建名称”的对话框中，将名称改为“结果”，在引用位置中输入函数"=evaluate（Sheet1!A1）*evaluate（Sheet1!B1）"，注意这个地方不能用绝对引用，即带符号“$”的计算，单击确定即可。

现在我们回到表中，在C1中输入“=结果”，然后回车，C1中就出现A1与B1单元格内计算式的结果了。

选中C1单元格，向下拉就能将其余的全部计算完成了。

“evaluate”函数的引入，在一定程度上简化了繁琐的计算给人们带来的麻烦，特别是对于一些无规律的计算式的计算

5. 拆分表格的宏代码

一个单元格内数据拆分，有多种方法和工具可用，假设数据在单元格A1：

方法1：使用Excel公式

具体步骤：

在A2单元格输入公式：=MID($A$1,ROW()-1,1)

往下拉公式

复制A1下方的这些单元格即可。

方法2：使用VBA宏代码

具体步骤：

Excel中按下Alt+F11

左侧右击插入”模块“

粘贴下列宏代码

1

2

3

4

5

6

F5运行即可，实现方法1同样的效果

方法3：使用JS代码功能

具体步骤：

打开Chrome浏览器

按下F12，进入开发者工具

点击”Console“控制台

输入下列JS代码，并回车

'你的单元格A1中的数值'.replace(/\d/g,'$& ')

6. 宏合并电子表格

右击分页-移动或复制工作表-然后选择移动到你要复制到的文件就完成了 建一个宏－“个人宏工作簿”，内容如下： Sub 合并文件() Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Workbooks.Open Filename:="E:\合表.xlsx" Selection.Insert Shift:=xlDown Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close ActiveWorkbook.Save ActiveWindow.Close ActiveWorkbook.Save Application.Run "PERSONAL.XLSB!合并文件" End Sub 新建“E:\合表.xlsx”空白表。 打开所有需要合并的文件（可一批批进行），运行“PERSONAL.XLSB!合并文件”宏。

顶一下

(0)

0%

踩一下

(0)

0%