继上篇大猫为大家介绍了合并多个工作簿的VBA代码之后，这篇我们继续为大家介绍一个实用的技能。

将一个excel文档中的多个工作表进行合并为一个工作表

打开要合并的工作簿

按alt+F11进入VBA工程界面

新建一个模块

复制下面的代码，然后执行即可

作用结果是：

它会新建一个叫做“汇总”的工作表，然后把当前工作簿里的所有Sheet里有数据的内容都复制到“汇总”表里。提示：如果数据表里的内容没有表头的话需要把StartRow = 2改成StartRow = 1

Function LastRow(sh As Worksheet)

On Error Resume Next

LastRow = sh.Cells.Find(what:="*", _

After:=sh.Range("A1"), _

Lookat:=xlPart, _

LookIn:=xlFormulas, _

SearchOrder:=xlByRows, _

SearchDirection:=xlPrevious, _

MatchCase:=False).Row

On Error GoTo 0

End Function

Sub MergeSheets()

Dim sh As Worksheet

Dim DestSh As Worksheet

Dim Last As Long

Dim shLast As Long

Dim CopyRng As Range

Dim StartRow As Long

Application.ScreenUpdating = False

Application.EnableEvents = False

'新建一个“汇总”工作表

Application.DisplayAlerts = False

ActiveWorkbook.Worksheets("汇总").Delete

Application.DisplayAlerts = True

Set DestSh = ActiveWorkbook.Worksheets.Add

DestSh.Name = "汇总"

'开始复制的行号，忽略表头，无表头请设置成1

StartRow = 2

For Each sh In ActiveWorkbook.Worksheets

If sh.Name <> DestSh.Name Then

Last = LastRow(DestSh)

shLast = LastRow(sh)

If shLast > 0 And shLast >= StartRow Then

Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))

If Last + CopyRng.Rows.Count > DestSh.Rows.Count Then

MsgBox "内容太多放不下啦！"

GoTo ExitSub

End If

CopyRng.Copy

With DestSh.Cells(Last + 1, "A")

.PasteSpecial xlPasteValues

.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End With

Next

ExitSub:

Application.GoTo DestSh.Cells(1)

DestSh.Columns.AutoFit

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

excel不用函数，也能合并多个文本并添加自己想要的内容？

假如我们得到的是这样的excel文本：

但是我们想要的是这样的excel文本：

有人说这个多简单啊，复制张三，粘贴，复制云南粘贴，打字省，复制楚雄，打字州，复制姚安，打字县，复制大河口，打字乡，是的，数量少自然没问题，但是如果数量多呢？好几千怎么弄？当然是excel自动帮我们弄！

只需要在需要得到结果的excel单元输入第一个，云南省楚雄州姚安县大河口乡，向下填充（选快速填充），也可以选中需要得到结果的单元格，按CTRL+E，瞬间自动得到结果，我们会惊奇的发现，excel自动为我们添加了省、州、县、乡，哎呀，这也太神奇了吧！

今天的分享就到这里，怎么样，很简单吧，你学会了吗？快去试试吧！非常感谢您观看文本，如果你有更好的方法适用这个情况，请您留言分享！分享好玩、有趣、实用的手机和电脑技巧，您的支持就是我的最大动力！

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个Excel表格数据，经常是多个数据合并到一个excel表格里来做数据分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一个文件夹里。如下图：

2、打开汇总excel，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3、然后我们把下面代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行几十秒钟就OK啦！如果表格数据过多的话，时间会久一点。

转载自百家号作者：因为专注

在使用Excel处理数据过程中，你是否碰到过需要将几个单元格的内容合并到一起。对于数字或文本类的内容合并到一起的这类情况，我相信大多数朋友都能轻松应对。但是碰到需要将文本和日期格式合并到一起的时候，又该如何来实现呢？如果还是完全的挪搬硬套文本和文本合并的方法，你会发现这根本就行不通！今天本教程将介绍到文本和文本或数字合并技巧，以及文本和日期合并技巧，希望对您有点帮助。

1、文本（数字）和文本（数字）合并：教程以Excel2013为例，对于文本（数字）和文本（数字）合并，只需要使用函数公式&连接符号，将需要合并在一起的单元格连接在一起即可。例如，将A1和B1单元格的内容合并到一起，结果放入C1单元格中，只需要在C1单元格中输入公式：=A1&B1即可。

2、文本（数字）和日期合并：对于文本（数字）和日期的合并，前面使用的这种方法就行不通，因为日期会变成常规格式，这时候我们就需要将以上的公式做一点小的变动，例如A3内容是 今年国庆，B3单元格内容是 2018/10/1，现在需要将两个单元格的内容合并放入C3单元格中，我们就需要将函数公式改成：=A3&TEXT(B3,"yyyy年mm月dd日")或=A3&TEXT(B3,"yyyymmdd")即可。

感兴趣的朋友，记得收藏或分享一下再走哟，您的支持是我不懈努力的动力，谢谢！（*O*）

把几个excel表格的内容，合并到同一张表格里面，如何操作？看小编给你演示。

第一步：把需要合并的表格放在同一个文件夹里面，然后再新建一个excel，如图：

第二步：打开“新建Excel2007”，鼠标右键单击Sheet1，选择“查看代码”并打开进去。

第三步：将下列代码粘贴进代码栏：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <>""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

第四步：点击菜单栏的“运行”、“运行子子过程/用户窗体”，等待几秒后提示合并完成，点击确定。如图：

完成，这样就把3个表格的内容合并到同一张表格里面。

好了，如果觉得小编文章不错，欢迎关注、点赞、收藏。

假设要在合并单元格内输入多行文字；

1、选中这个单元格，点击右键>设置单元格格式；

见图一

2、在“设置单元格格式”对话框中，转到“对齐”标签，水平对齐：左对齐；垂直对齐：靠上；文本控制下面勾上“自动换行”前面的小方块；

见图二

3、实际结果：

见图三

如果需要在文字中间强制换行：

1、双击这个单元格，光标移动到要换行的文字前；

见图四

2、按组合键：Alt+Enter，实际结果：

见图五

（本文内容由百度知道网友漂网一叶舟贡献）

各位朋友大家好，图文版的officer帮帮忙又和大家见面啦，今天帮帮给大家推荐一个小技巧，希望能够在工作上帮到您哦！

大家请看范例表格，这是一张从其他系统中导出的表格，里面的地址按行政区域进行了保存，如图一

图一

现在我想将他们放到同一个单元格里面，我们应该怎么做呢？有的朋友也许会说，我可以在I列用=B2&C2.....&H2就可以啦（如图二）

图二

但是这样做应付一些列比较少的表还可以，如果遇到几十列的表格或者你需要在中间插入一列加入新的内容又要去修改公式，是不是非常麻烦呢，您这样做容易出错并且也会累死啦！，下面帮帮给大家介绍一个函数可以轻松搞定，大家请看图三

图三

图三结果

对了，就是PHONETIC函数，是不是又简短又简单，而且还不会出错呢，下面我给大家详细讲解一下这个函数的功能和一些注意事项：

1、PHONETIC函数可以将多个单元格中的字符串连接成一个字符串，只要在函数中填写需要合并单元格的范围比如图三中的B2:H2，就能合并该范围单元格中的所有内容，并且是可以跨行引用。

2、PHONETIC函数在使用中一定要注意，被统计的单元格范围必须相邻，也就是说不能隔行或者隔列引用，否则会出现错误

3、PHONETIC函数只能合并文本哦，如果单元格内容是数值或公式需要将单元格格式转换为文本才能合并

Excel作为一个具有强大的数据处理的办公软件，对于白领一族来说，使用频率应该较高。在处理数据过程中，您是否碰到过清单之类汇总的情况，就是将同一个工作簿中的所有工作表的内容合并到一个工作表中。对于不会取巧的朋友，可能就是一个表一个表的复制，然后粘贴拼凑在一块，若碰到表格数量不多的情况，这种方法还好，若是碰到工作表数量庞大，例如50个工作表，100个工作表......这种方法就很鸡肋。今天本篇以Excel2013为例，教大家如何一键实现所有工作表合并到新工作表中，同样适用于Excel其他版本，碰到细微差异，可以适当调整代码。

教程将内容分成三部分：第一部分是新建一个汇总的工作表，并重新自定义命名；第二部分是逐一将各个工作表复制粘贴到汇总工作表中；第三部分为提示，即当合并工作完成后弹出提示。具体操作如下：

打开工作簿，在工作表标签中会显示包含的工作表名称，教程以下图中三个工作表为例，分别是Sheet1，Sheet2，Sheet3.按下组合键Alt+F11即可从Excel工作界面切换到VBA界面，在VBA窗口单击菜单栏中的插入，找到模块命令，单击该命令即可创建一个新的模块窗口，在模块窗口复制粘贴以下代码：

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub

在我们办公时

经常会碰到

需要将多上文字合并成一行

用“&”合并，实在是太麻烦了

错误概率多少，您知道的

今天就与大家分享一个小小的技能

希望对您有所帮忙

视频详解

常见例子

将如下多行文字，合并为一行：

文字详解

1、选择需要合并单元格 - 【开始】-【编辑填充】-【两端对齐】

2、按【Ctrl+F】弹出【查找和替换】对话框 -【替换】- 设置【查找内容】及【替换为】-【全部替换】-【确定】

结果如下：

以上就是今天主要学习的知识点，希望你能有所收获~~有什么问题欢迎留言，我们会及时的给你答复~~

在使用Excel时，如果想把两个单元格中的文字合并到一个单元格中，或者想把两列文字合并成一列，可参考下述方法：

例如要将下图表格中的省和市合并到一个单元格、列中。

●先用鼠标点击选择一个保存合并内容的单元格。

●然后在编辑栏中输入一个等号。

●输入等号后，用鼠标点击要进行合并的第一个单元格。点击后，该单元格的名称会自动输入到编辑栏中。

●再在编辑栏中输入一个“&”符号（按住键盘的Shift键不放的同时按大键盘上方的数字7键）。

●输入“&”后，再用鼠标点击要合并的第二个单元格。

●完成以上步骤后，按键盘的回车键或者点击编辑栏左侧的对号按钮。

●这样，就将两个单元格中的文字合并到一个单元格中了。如果要合并两列，可用鼠标点击合并后单元格右下角的填充柄。

●点击填充柄后，按住鼠标左键不放，向下拖动鼠标，则相同两列中的文字就会自动合并到一列中。

合并后的单元格中虽然显示的是文字，但点击单元格后从编辑栏中可看出单元格中的实际内容是公式。此时如果将该单元格中的内容直接复制粘贴到其他位置，粘贴后的内容会发生改变。如果想保持粘贴后的内容不变，可以采用选择性粘贴数值的方法粘贴，或者将单元格中的内容复制粘贴到word中，再从word中复制粘贴过来。