一、如何使用VB实现多个excel表格合并在一个EXCEL表格里面

由于你描述得太简单了，所以，只能给你提供一个思路，请按照此思路，进行修改完善代码即可。

Sub FileJoin() Dim Wb As Workbook Dim cPath$, myFile$ cPath = ThisWorkbook.Path & "\"'获取本文件所在路径 '如果扩展名不是xls请修改为你实际的扩展名 myFile = Dir(cPath & "*.xls") Set Wb = ThisWorkbook Application.ScreenUpdating = False Do While myFile <> "" If myFile <> ThisWorkbook.Name Then With Workbooks.Open(cPath & myFile) '将子文件中的第一个工作表复制到本工作薄中 .Sheets(1).Copy after:=Wb.Sheets(Wb.Sheets.Count) .Close False End With End If myFile = Dir'在本文件夹下查找下一个xls扩展名的文件 Loop Application.ScreenUpdating = True MsgBox "汇总完毕！"， vbInformation， "提示"End Sub。

二、WORD表格多列的快速合并

因为你没有说明表格的具体情况，很难有针对性的回答你的问题，提供一个最简单情况的解决方法： 假设表格为5列，其中没有任何合并单元格，现在将第3、4、5列的内容合并到第3列中。

选择第3、4、5列……复制……打开一个空白文档……粘贴……选择刚粘贴的三列表格……选择菜单栏中的表格……转换……表格转换为文本……将文字分割符设为逗号……确定……选择刚才转换的全部文本……选择菜单栏中的表格……转换……文本转换为表格……设置列数为1，文字分割位置为段落标记……确定……这时三列就合并成一列了……把原表格中的相应内容清除……把合并好的表格粘贴过来。如果中间不要有逗号，用替换的方法将逗号去除。

这时最简单的情况，如果和你的表格不同，灵活应用就行。 如有疑问，请发消息联系！。

三、VB 操作word时,当好几个文档合并成一个word文档时,word中表格的

比如我们打开第一个文档，需要把其他两个文档的内容合并到第一个文档里。

那么在第一个文档里，光标放到你要合并文档到此处位置，你光标放到哪里，那么合并的文字就是在哪里：然后看到上面菜单栏里有个“插入”选项：在插入的文本模块，有个“对象”按钮：点击一下对象按钮，会出来两个选项，我们选择“文件中的文字”：然后就出来一个对话框，在里面选择你要插入的文件，可以多选，再点击插入：最后出来效果如下，三个文档内容合并成一个文档里了：通过这个方法，可以很快捷的把多个word文档内容合并成一个，对于有需要的人来说真真极好的。

四、vb 如何实现EXCEL两个单元格合并

Public Sub MergeCells(tRange As Object) With tRange .HorizontalAlignment = -4108 '水平居中excel.XlHAlign.xlHAlignCenter .VerticalAlignment = -4108 '垂直居中Me.ExcelApp.XlHAlign.xlHAlignCenter '.xlHAlignGeneral .MergeCells = True '.xlHAlignGeneral 按照单元数值类型显示' '.xlHAlignCenter 居中 '.xlHalignLeft ：居左、xlHalignRight：居右、End WithEnd Sub。

五、vb 如何实现EXCEL两个单元格合并

Public Sub MergeCells(tRange As Object)

With tRange

.HorizontalAlignment = -4108 '水平居中excel.XlHAlign.xlHAlignCenter

.VerticalAlignment = -4108 '垂直居中Me.ExcelApp.XlHAlign.xlHAlignCenter '.xlHAlignGeneral

.MergeCells = True

'.xlHAlignGeneral 按照单元数值类型显示'

'.xlHAlignCenter 居中

'.xlHalignLeft ：居左、xlHalignRight：居右、

End With

End Sub

转载请注明出处51数据库 » vb多个word合并单元格