返回目录:excel表格制作
1.首先把需要合并的excel工作薄整理到一个文件夹中,如图,用来合并到一起的工作薄的名字要注意,这里取名叫“合并工作薄”。
2.打开这个excel表,直接按键ALT+F11,进入下图界面。双击如图所示位置的sheet1。
3.如图,打开准备好的VBA代码,复制到这个空白的代码编译处,代码如下:
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
4.注意事项,如图,注意工作薄的名字,同时,注意代码中设定的excel版本。如果出现无法编译的情况,可以用这个共享的txt。
5.回到“合并工作薄”的excel表格中,如图,点击工具(没有的到excel的选项中添加),选e799bee5baa6e78988e69d83339择宏。
6.选择宏以后会出现下图界面,直接双击图中选项。
7.双击后弹出选择待合并的文件夹中工作薄,直接全选要合并的工作薄即可。
8.如图,这就是合并后的效果,这两个工作薄是下载的2014年的高考录取分数线的内容,效果不错,而且合并工作薄本身的工作表是不会被占用的,是新建的工作表。
1.在电脑里找到要打印抄的表格。
百查看大图" class="ikqb_img_alink">
2. 打开表单打印,您将在工作簿中发度现几个表单。问
3.点开工作薄抄中的任意一个表格。
4.右击下方的单元格1,找到“选定全部工作表知”并答点击。
5.在表的左上角找到office按钮。
6.点击office按钮,找到“打印”,选择“打印”。
7.点击打印,将出现“打印内容”界面,选择ok。
亲,代码如下:zd
Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
With Sheets(i)
If .Name <> "Sheet1" Then
Debug.Print .Name '这句话换回成你要对每个Sheet的处答理代码
End If
End With
Next
End Sub
可以用VBA编程批量处理。详细要看文件及要求。928531376