实时搜索: excel几个表格内容合并成一个

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

436条评论 2369人喜欢 1287次阅读 274人点赞
例如: 螺栓 45*90mm 分别在两个单元格里,
我想合成在一个单元格如 螺栓45*90mm , 文件:

效果图

可以的话希望能给与相关代码的每一行的解释!满意再加分! , 如图,代码是在网上搜索的。之前我用的2007好像是可以,但是现在用2010,运行代码显示成功合并了,结果合并后却是没有任何内容。Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim ...

多张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,除了一个个输以外: 第一步,选择分列,按分隔符,其它:顿号,完成

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

  • 帆布包有哪些牌子

    电视剧交通警察中演李文墨妻子的那个女的叫什么名字: 李婷呀 ...

    202条评论 6531人喜欢 5485次阅读 669人点赞
  • exo的第一位主唱是谁

    在东北cad类工作工资多少?工作城市还有要求技能达到什么地步。: 现在东北,作CAD二维制图,大多是要结合一些加工设备工作,工资能在3千到5千左右。如果工作量比较大加班的话还会多一些。 ...

    921条评论 4780人喜欢 3271次阅读 817人点赞
  • .flac是什么格式

    网络安全管理软件 小草软路由怎么样 好用吗: 网络安全管理软件?你是要做到什么功能呢?软路由就我目前知道的就是海蜘蛛和ros比较好, ...

    919条评论 2453人喜欢 5113次阅读 785人点赞
  • nba总冠军谁拿的最多

    cad如何画漏斗的展开图直径上面400,下面80,: 请提供漏斗的高度,可以告诉你如何画出它。其实就是圆锥台的侧表面展开。 ...

    403条评论 3902人喜欢 4225次阅读 678人点赞
  • 昆明有哪些白殿疯医院

    货车保险过期几天被交警查了,交警有权扣驾驶证吗: 不按规定投保机动车第三者责任强制保险的,由公安机关交通管理部门扣留车辆至依照规定投保后,并处依照规定投保最低责任限额应缴纳的保险费的二倍罚款。对需要进一步核查、检验、鉴定的车辆、证件、物品等,交通警察应当依法扣留或者...

    505条评论 3634人喜欢 1147次阅读 357人点赞