1.原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。

2.点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。

3.如下图所示插入一个新的模块。

4.如下图，粘贴下列代码在模块中：

Sub CFGZB()

    Dim myRange As Variant

    Dim myArray

    Dim titleRange As Range

    Dim title As String

    Dim columnNum As Integer

    myRange = Application.InputBox(prompt:="请选择标题行：", Type:=8)

    myArray = WorksheetFunction.Transpose(myRange)

    Set titleRange = Application.InputBox(prompt:="请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”", Type:=8)

    title = titleRange.Value

    columnNum = titleRange.Column

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Dim i&, Myr&, Arr, num&

    Dim d, k

    For i = Sheets.Count To 1 Step -1

        If Sheets(i).Name <> "数据源" Then

            Sheets(i).Delete

        End If

    Next i

    Set d = CreateObject("Scripting.Dictionary")

    Myr = Worksheets("数据源").UsedRange.Rows.Count

    Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))

    For i = 1 To UBound(Arr)

        d(Arr(i, 1)) = ""

    Next

    k = d.keys

    For i = 0 To UBound(k)

        Set conn = CreateObject("adodb.connection")

        conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

        Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"

        Worksheets.Add after:=Sheets(Sheets.Count)

        With ActiveSheet

            .Name = k(i)

            For num = 1 To UBound(myArray)

                .Cells(1, num) = myArray(num, 1)

            Next num

            .Range("A2").CopyFromRecordset conn.Execute(Sql)

        End With

        Sheets(1).Select

        Sheets(1).Cells.Select

        Selection.Copy

        Worksheets(Sheets.Count).Activate

        ActiveSheet.Cells.Select

        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

                               SkipBlanks:=False, Transpose:=False

        Application.CutCopyMode = False

    Next i

    conn.Close

    Set conn = Nothing

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub

5.如下图所示，插入一个控件按钮，并指定宏到刚才插入的模块代码。

6.点击插入的按钮控件，根据提示选择标题行和要拆分的列字段，本例选择“姓名”字段拆分，当然也可以选择C列的“名称”进行拆分，看实际需求。

7.代码运行完毕后在工作簿后面会出现很多工作表，每个工作表都是单独一个人的数据。具体如下图所示：

注意：

1）原始数据表要从第一行开始有数据，并且不能有合并单元格；

2）打开工作簿时需要开启宏，否则将无法运行代码。

（本文内容由百度知道网友茗童贡献）

excel使用技巧大全表格的拆分对很多人来说都是一件难事，大家都想到的第一个方法就是复制和粘贴，或者用代码解决，其实，EXCEL有自带功能的，可以快速的帮你实现拆分。今天就给大家介绍一下这种方法，不需要编写任何的代码，一下就学会了。

例如下面我们要把这个表格拆分成多个工作表。

要把A列的销售部门，按照部门的名称进行分表。这时候，传统的方法就是插表，再进行复制粘贴。其实，解决这个问题，我们只需要学会运用Excel自带的数据透视表功能就可以。

首先，创建一个数据透视表，选中我们有用的数据区域，接着插入数据透视表。记住除了销售部门名称外，其他都要添加行标签。

插入完之后，我们就调整格式，选中区域，在浮动选项卡——布局分分类汇总——不显示，报表布局那里在选择报个形式，在去分析选项卡里面把+/- 键进行取消。

第三步，就是最为关键的一步，进行拆分表格，在透视表工具中，按选项—显示报表筛选页—确定，那么拆分就完成。

第四部删除数据透视表格式，这个比较简单。按shift连选表格，然后根据下面的方法，复制粘贴相应的值，最后删除前2行和取消工作表就可以完成。

第二个例子，批量建设相同的表。

学了如何拆分表，现在学学如何批量新建表格，具体操作如下图：

有时候我们的Excel表格里只有一列数据，如果需要打印出来的话，就是下面这样子的：

浪费纸不说，还很丑，这样打印的表格你真的敢拿给老板看吗？

对于这样的数据，就需要把一列平均分配到多列，通常有两种方法来实现，先来看看操作的方法：

一、操作法将一列数据变成多列

步骤1：先设计好需要拆分为几列，然后将标题手动做好；

本例中计划拆分8列。

步骤2：在c2单元格输入a2，向右拉，Excel会自动为我们填充到a9。

步骤3：在c3单元格输入a10，向右拉；因为第一行已经到a9了，所以这一行就是a10开始，一直填充到a17。

步骤4：选中两行一起下拉，假设有160个数据，每行8个，那么下拉20行就够了；

步骤5：按Ctrl +h组合键打开查找和替换，查找内容为a，替换内容为=a，如下图所示；

点击全部替换，确定，完成操作。

步骤6：选择性粘贴为值可删除公式，数据居中加边框，设置打印预览，效果正是我们需要的；

结论：

1、如果不是每行8个，只需要调整第一次右拉的个数即可；

2、操作法的优势是容易上手，更适合新手使用；

3、但是操作法也有缺点，如果数据不断增加，那么每次都要这样操作也挺麻烦，因此还是需要了解一下公式的做法。

二、公式法将一列数据变成多列

还是用这个例子来说明，通常将一列变成多列会用到OFFSET函数，我们先来看看公式是什么样子的：

=OFFSET($A$1,MOD(COLUMN(A1)+7,8)+ROW(A1)*8-7,)

只需要将这个公式右拉下拉即可。

OFFSET这个函数根据偏移量来得到一个新的引用（单元格或者区域）一共有五个参数，格式为：

OFFSET(起始位置，行偏移量，列偏移量，高度，宽度)。

本例中起始位置为A1单元格，因为数据源都在一列，并且都是单元格的引用，因此只需要确定行偏移量即可，可以看到公式里只用了两个参数，第二参数是

MOD(COLUMN(A1)+7,8)+ROW(A1)*8-7。

单独将这部分显示出来的效果是这样的：

说通俗点，就是A1向下1行、2行……等等的单元格引用。

关于这部分需要一点数列构造的基础，不理解的话可以记住套路，想学习数列的构造方法可以留言，我们会针对如何在公式中构造数列来单独讲解一次。

结论：

1、如果不是每行8个，只需要将第二参数中的数字7、8做对应调整，例如每行是6个数据的话，公式修改为：=OFFSET($A$1,MOD(COLUMN(A1)+5,6)+ROW(A1)*6-5,)

2、公式法需要使用者有一定的经验，当数据源发生变化时调整起来非常灵活；拓展性较强。

看到这里，估计有些伙伴会想：如果数据源不是一列，而是两列或者三列，该怎么办？

实际上，两列或者三列的数据源在平时工作中更为常见，例如下面这种情况：

数据源有三列，我们希望变成九列（三组），这样打印起来就非常合理。

对于这种问题，使用方法1介绍的技巧来实现就比较困难了，还是利用OFFSET函数来处理。

三、对于多列数据源的处理方法

公式为：

=OFFSET($A$1,INT(COLUMN(C1)/3)+ROW(A1)*3-3,MOD(COLUMN(C1),3))

因为数据源不在同一列了，所以行偏移量和列偏移量都要考虑，因此用到了三个参数，第一参数起始位置还是A1；

第二参数INT(COLUMN(C1)/3)+ROW(A1)*3-3代表引用数据相对于起始位置A1的行偏移量，单独看的话效果为：

可以非常清楚的看到变化规律；

第三参数MOD(COLUMN(C1),3)代表引用数据相对于起始位置A1的列偏移量，单独看的效果为：

对于这种规律的掌控能力，决定了OFFSET这个函数的使用水平，也正是这个原因使得OFFSET函数令很多初学者摸不着头脑，学习起来始终不得要领。

今天我们的主要目的并不是学习OFFSET函数，只是学习这个函数的一个应用，就本例来说，记下公式的套路，能够根据自己实际的问题去修改公式后解决问题就足够了。

学好OFFSET的关键在于对第二和第三两个参数的构造。

比如上面的问题，数据源是三列，希望变成四组（十二列），第二参数需要变成INT(COLUMN(C1)/3)+ROW(A1)*4-4

对箭头所指的两个地方进行修改。

而第三参数=MOD(COLUMN(C1),3)则无需调整；以此类推，只要数据源的列数不变，只需要调整上面提到的两个位置就行了。

当数据源变成2列的时候，第二参数需要修改为INT(COLUMN(B1)/2)+ROW(A1)*3-3

还是修改两个位置，C改为B，3改为2，

同时第三参数列偏移量也要修改：

=MOD(COLUMN(B1),2)

也是修改两个地方，C改为B，3改为2。

以此类推，如果数据源变成4列，则分别修改B为D，2为4。

通过以上解释，基本可以理解如何根据实际需要去调整公式的对应内容就可以了。要想彻底弄明白这里的奥妙，数列的构造方法是绕不过去的一道坎。

让我们一起加油学习Excel中那些有趣又实用的技能吧！

＊＊＊＊部落窝教育－excel单列拆分成多列＊＊＊＊

原创：老菜鸟/部落窝教育（未经同意，请勿转载）

新

Excel单元格内换行

excel单元格内换行 excel表格一格两行字 excel一行变两行

Excel单元格中输入较长数据时总是会碰到单元格变形，Excel单元格中输入的数据默认只有一行，如何要让输入的数据在单元格内换行?

方法总结为两种：

方法一:

在单元格中输入数据时，只要按下“Alt+Enter”组合键即可直接在单元格光标所在处换行，其实和WORD中换行操作是一样的，只是要多加个alt键，因为EXCEL中不能直接使用ENTER键。

方法二：

选定需要换行的单元格，在“开始”选项卡中单击“对齐方式”区域右上角的“自动换行”图标，以后当此单元格中的文本内容超出单元格宽度时就会自动换行。

点击单元格右键选择设置单元格格式也可以设置自动换行。

拖鞋，据说夏日旅行与拖鞋更配哦！流行的说法，谓拖鞋起源于日本明治时代。其实拖鞋更早起源于印度。

很多用户都被excel如何拆分单元格的问题难住了，接下来，小编就为各位用户们讲解在excel中拆分单元格的具体操作方法。

excel系列软件最新版本下载

Excel表格下载器软件版本：2014 官方免费版应用工具立即查看

excel2007软件版本：免费完整版应用工具立即查看

方法一

1首先选中要拆分的单元格，然后点击开始选项卡中的合并后居中。

2这时单元格就已经拆分完毕。

方法二

右键单击要拆分的单元格，选择设置单元格格式。

在设置单元格格式窗口中去掉合并单元格前面的对钩。

这时单元格就拆分好了，两种方法都很简单。

上文就是小编讲解的在excel中拆分单元格的具体操作方法，你们都学会了吗?

Excel单元格内换行通常有两种方法，一种用快捷键实现，另一种用“对齐方式”中的“自动换行”实现，它们都可以只操作一次便使所超出单元格宽度部分的文字自动换行；其中“自动换行”既可以输入文字前设置又可以输入文字后设置。另外，应用Excel单元格内换行可以实现同时设置多单元格自动换行、避免输入短横线文本自动换行和用两端对齐实现一段文本在指定多单元格内自动换行。以下先介绍Excel单元格内换行的两种方法，再介绍它们的扩展应用，操作中所用 Excel 版本为 2016。

一、Excel单元格内换行的两种方法

（一）用快捷键

假如表格第一个单元格（即 A1）的文本内容超出，要求把超出部分换行，用快捷键操作方法如下：

1、在“内”字后面单击把光标定位到哪里，如图1所示：

2、按 Alt + 回车（Enter）组合键，光标后面的文字自动分成了两行，即按一次键，光标后的所有文字就会自动换行，不需一行行的重复按键，如图2所示：

（二）用“自动换行”

1、在第二列第一个单元格（即 B1）输入一行文字，文字超出了单元格，单击一下 B2 单元格结束 A1 单元格的输入状态，再单击 A1 单元格选中它，此时，“开始”选项卡下的“自动换行”由灰色变为可选，单击它，则超出部分自动换行；接着，单击 C1 单元格，再次单击“自动换行”，在 C1 中输入文字，此时，超出的部分自动换行，操作过程步骤，如图3所示：

2、说明：上面演示了两种使用“自动换行”的方法，一种是输入文字后再设置自动换行，另一种是输入文字前设置，后一种操作少一些。

3、取消自动换行。选中设置过自动换行的单元格，再单击一次“自动换行”就可以取消。

二、Excel单元格内换行的扩展应用

（一）批量设置单元格自动换行

1、选中要设置自动换行的所有单元格（如选择 D1:F4），单击“开始”选项卡下的“自动换行”，则选中的所有单元格实现自动换行；首先在 D1 单元格输入文字，超出部分自动换行；再在 E2 单元格输入文字，超出部分也自动换行；操作过程步骤，如图4所示：

2、批量设置“自动换行”后，如果想取消自动换行，既可以单独取消其中一个或几个单元格，也可以把所有单元格同时取消。

（二）避免输入短横线文本自动换行

在单元格中输入文本后若再输入短横线(- 或 _），短横线的文字可能会自动换行；这跟输入文本的长短或单元格的长度有关，当输入的文字与单元格的长度接近时，短横线后的文字会自动换行，反之不会；因此，若要避免自动换行，如果要求一行显示的文本长度固定，可以加宽单元格的长度，如图5所示：

（三）用两端对齐实现一段文本在指定多单元格内自动换行

假如有一段文本要求只能显示到指定区块（如 A1:E4），即超出E列的部分要求自动换行，设置方法如下：

1、选中 A1：E4 这片区块包含的单元格，单击“开始”选项卡下的“填充”图标，在弹出的菜单中选择“两端对齐”，则文本超出部分自动换行，操作过程步骤，如图6所示：

2、“两端对齐”在 Word 2003 中称为“内容重排”，自 Word 2007 以后的版本包括 Word 2016 更改为“两端对齐”，它们的功能是一样的。

在Excel表格中，怎样快速的将多行数据转变成一行？其实有三种非常简单的方法，下面我来给大家分享一下，希望能够帮助大家！

方法一：利用函数公式

首先输入辅助列"、"，然后在单元格中输入函数"=PHONETIC"，选中单元格数据即可。

具体操作如下：

方法二：利用F9运算符

在单元格中输入"="，选中单元格数据，在编辑状态下按"F9"键，删除数据的头尾的符号。按快捷键"Ctrl+H"弹出查找和替换框，符号替换为"、"即可。

具体操作如下：

方法三：利用剪切板

选中单元格数据进行复制，打开剪切板，将数据粘贴到另一个单元格中，按快捷键"Ctrl+H"弹出查找替换框，按"Ctrl+J"将查找内容更换为"换行符"即可。

具体操作如下：

以上就是今天分享的Excel技巧了。怎么样大家有没有学会呢？

有时我们在处理Excel表格数据的时候，会遇到汉字和数字在一个单元格中。为了统计方便，有时要把单元格拆分成两个，如果数据少还能用剪切再粘贴的方法。如果数据多，这个方法很浪费时间，还容易出错。今天我们就来学习Excel拆分单元格的功能，轻松搞定上面的需求。

表格数据一般有两种情况，一种是如内容"我的2000" 称为固定宽度；还有一种用分隔符隔开的数据形式如"我的-2000"，我们分开讲解。

一、固定宽度的数据拆分

1、表格原始数据，汉字+数字

2、选择如下数据

3、选择菜单--数据分列

4、选择固定宽度

5、这步是重点，建立分列线：在数据预览处“的”右上方单击鼠标就可以建立箭头向上的分列线，分列线的作用是将数据拆分。备注：如要清除分列线双击分列线可以清除；如要移动分列线，按住分列线并拖动到指定位置即可。

6、列数据格式默认常规，目标区域选默认$A$1

7、当点击完成，就出现下列我们需要的汉字和数字分开的表格

二、分隔符形式的数据拆分

1、表格原始数据汉字-数字形式

2、选中如下数据

3、选择数据菜单-分列

4、选择分隔符

5、分隔符号，选其他，输入 -

6、列数据格式默认常规，目标区域默认$A$1

7、点击完成后，表格就被拆分两部分。我们发现，使用分隔符后同时实现了不是固定宽度的数据拆分

总结：Excel固定宽度拆分和带分隔符数据的拆分，我们可以根据实际情况选用，赶紧试试吧。

本百家号：时代新生分享工作、生活、技能方面的经验，愿和您一起成长。请多多收藏或关注哦！

我们日常工作中使用Excel填写文本时，有些时候不同的单元格需要填充的内容是一样的，不怎么用Excel的同学可能真的会一个一个单元格去敲文本，还用一种同学会选择Ctrl+C和Ctrl+V来实现，今天我们分享另外两种相对更为快速的方法：

1、下拉：将对应文本填写至一个单元格中，然后放在单元格的右下角，我们的鼠标就变成了个＋号，然后点击鼠标左键下拉或者像右拖即可

以上的方法简单，但是有个很大的弊端，就是必须是连续的，如果是非连续非规则的，则不好填写，这个时候就比较适用下述的方法了

2、Ctrl+enter快捷键：首先我们先选中我们所要填写的文本的所在的所有单元格（如果连续直接选择即可，如果不连续则可按着Ctrl键不连续选择，当然如果连续行列比较多，我们也可以选中第一个单元格后按shift键然后点最后一个单元格），选择完毕后，我们直接写所要填写的文本后然后按下Ctrl+enter键即可，具体操作如下：

以上两个分享虽然简单，但确实我们经常用的，欢迎大家收藏或分享给更多同道中人，谢谢。

在 Word 中，可以把一个单元格拆分为多个单元格甚至拆分为一个表格；而Excel拆分单元格与Word不同，在Excel中，只能把合并后的单元格拆分。拆分方法有两种，一种是用“对齐方式”中的选项拆分，另一种在“设置单元格格式”窗口中拆分。另外，一次可以只拆分一个单元格，也可以批量拆分多个单元格。除拆分单元格外，还可以拆分单元格内容，即把一个单元格中的内容拆分到多个单元格，拆分内容可以数字、数字与字母组合、汉字词组等，但分隔符必须用半角而不能用全角。以下先介绍Excel拆分单元格的两种方法，再介绍拆分单元格内容的方法，操作中所用 Excel 版本为 2016。

一、Excel拆分单元格

(一）拆分一个单元格

Excel未合并的单元格已经是最小的单元格，不能再拆分。现在，假如要把一个合并了四个单元格的单元格重新拆分为四个，方法如下：

方法一：

选中要拆分单元格，单击“开始”选项卡下的“合并后居中”下拉列表框，在弹出的选项中，选择“取消单元格合并”，则此单元格被重新拆分为四个单元格，点击“自动换行”后，效果更明显，操作过程步骤，如图1所示：

方法二：

右键要拆分的单元格，在弹出的菜单中选择“设置单元格格式”，打开该窗口，选择“对齐”选项卡，单击“合并单元格”把其前面的勾取消，单击“确定”，则选中单元格被重新拆分为四个，操作过程步骤，如图2所示：

(二）批量拆分单元格

1、选中要拆分的所有单元格，例如选中三个单元格，单击“开始”下的“合并后居中”，选择“取消单元格合并”，如图3所示：

2、则选中的三个单元格同时被重新拆分为四个，为便于看到所有文字，把它们的对齐方式都设置为“左对齐”，如图4所示：

二、Excel拆分单元格内容（把一个单元格的内容拆分到多列）

1、选中要拆分内容的单元格，例如 A1，选择“数据”选项卡，单击“数据工具”上的“分列”，打开“文本分列向导”窗口，选择“请选择最合适的文件类型”下的“分隔符”，单击“下一步”；选择“分隔号”下面的“逗号”，单击“下一步”，最后单击“完成”，则选中单元格的内容被拆分到三个处于同行的单元格；操作过程步骤，如图5所示：

2、上面拆分的是字母加数字组合成的文本，全是中文的内容也可以用此方法拆分，但有一点要注意，文字之间必须用半角标点符号（即英文标点），假如用逗号做分隔符，只用“,”不能用“，”。以下是一个拆分中文的实例：

A、同样选中要拆分的单元格（如 A2），单击“数据”选项卡下的“分列”，打开“文本分列向导”窗口，如图6所示：

B、单击“下一步”，像拆分 A1 单元格中的内容一样选择即可，拆分结果，如图7所示：

C、“单元”二字被拆分到一个单元格，而“格式，符号”却没有被拆分到两个单元格；因为“单元”后用的是半角逗号，“格式，符号”中的是全角逗号，而全角逗号Excel无法识别不能作为分隔符。