摘要： 我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，
如图所示：wps表格如何批量删除Alt Enter强制换行的手工换行符
wps表格如何批量删除Alt Enter强制换行的手工换行符 在WPS表格中,我们经常会用到手工换行符,即在输入内容的过程中通过按下Alt Enter或按下工具栏上的自动换行按钮来强制换行.如果这些强制换行符不需要了又该如何将其删除呢?其实很简单只要灵活运用替换功能即可删除换行符,而且只删除手工换行符,对设置的自动换行没有任何影响,需要注意的是换行符是看不到的,要根据前面记下的换行符位置来操作.下面为大家介绍下具体的操作实现步骤,有此需求的朋友可以借此机会学习下,希望对大家有所帮助. 一.自动换行按钮对手
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表数据合并后的结果。效果如图所示。
注意事项
金山的WPS没有宏计算功能。只能用microsoft excel来实现。
如何在wps文档中插入装订线
如何在wps文档中插入装订线 点击文件--页面设置 然后点击页边距选项卡,选择装订线位置为"左",装订线宽为40毫米. 然后选择页眉和页脚:勾选奇偶页不同. 点击确定,我把装订线设置的大. 设置完成后就要打印了,打印也需要设置的,点击文件--打印或者Ctrl p进入页面打印.在打印选项设置中选择,偶页降序,这个也是必选项.不能自由发挥的.到了这一步就可以彻底完成了,只需要打印一下就好了.
