excel几个表格内容合并成一个

多张excel表格内容不同怎么合并成一个表格: 用microsoft excel打开新建的excel表，并右键单击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

运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

EXCEL 两个单元格的内容，合成到一个单元格用什么公式:

1、打开数据表。

2、现在是名称不够规范，要求用全称，如：一中改成北京市第一中学。

3、只要在一中前面加上北京市第，在一中后面加上学，三个单元格合并在一起就是北京市第一中学了。

4、把所有学校前面和后面的单元格全部添加好北京市第和学。

5、在空白单元格中输入=B1&C1&D1，注意：&要在英文状态下输入，它就是字符的连接符。

6、回车之后，看两个内容是不是完全一致。

7、按住右下角的黑方块向下拉。

8、所有学校名称都规范了。

多个excel合并成一个excel表格,且将对应表格文件名合并表格内,对应的位置为每个文件内容第二行的末尾:

VBA代码如下：

Sub 文件合并()
If Workbooks.Count > 1 Then MsgBox "关闭所有工作簿，然后再试！": Exit Sub
Dim fn As String, mPath As String, wb As Workbook, sh As Worksheet
Dim t
t = Timer
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "没有选择任何文件夹！"
        Exit Sub
    Else
        mPath = .SelectedItems(1)
    End If
End With
fn = Dir(mPath & "\*.xls*")
Application.ScreenUpdating = False
Do While fn <> ""
    If fn <> ThisWorkbook.Name Then
    k = k + 1
    Set wb = Workbooks.Open(mPath & "\" & fn, , True)
    With wb.Worksheets(1)
        mary = .[a1].CurrentRegion
    End With
    wb.Close
    With ThisWorkbook.Worksheets(1)
        mrow = Application.CountA(.Range("A:A")) + 1
        .Cells(mrow, 1).Resize(UBound(mary, 1), UBound(mary, 2)) = mary
        .Cells(mrow, UBound(mary, 2) + 1).Resize(UBound(mary, 1), 1) = fn
    End With
    End If
fn = Dir
Loop
Application.ScreenUpdating = True
MsgBox "处理完成，共用时" & Timer - t & "秒。"
End Sub

EXCEL2010合并多个表格，显示成功，但是没有内容！:

把With Workbooks(1).ActiveSheet 改成With Workbooks(AWbName).ActiveSheet 试下，论坛里找到的，试过，可行网页链接

excel表格的操作:在同一个格子里,一排的文字想要变成两排,怎么操作啊?: Alt+回车，这个用于单元格内换行

EXCEL中怎么把几个小表中的合计数，在一个新建的表格中合计成一个总数？: 把这些小表放在一个Excel文件里，插入一新表，在新表需要求合计数的地方，输入
=sum(sheet1:sheet8!e5)
把公式中的Sheet1改成你所有小表的放在最前面的那个小表的名字，把Sheet8改成最后的名字，把e5改成各表放合计数的单元格

两个excel表格，有很多数字数据，数字可能有相同可能有不同，问题来了...把两表格合成一个表格时: 如果你的数据只有一列，你可以做成一张表，然后用高级筛选，不重复 就可以了 ，然后复制粘贴

如何把excel表一格里的内容分成多格？图1变成图2，除了一个个输以外: 第一步，选择分列，按分隔符，其它：顿号，完成

第二步，复制刚才的分列后的一行，选择性粘贴，转置