Excel中遇到的一些问题——持续更新 (2)

2）先选中某一张图片，然后用快捷键Ctrl +A全选即可

8、快速删除大量空白行

然后右键-删除-下方单元格上移

9、如何快速合并单个excel中的多个sheet

. 首先要在最前页新建一个sheet，合并后的数据全部在这个sheet中

. 然后右键点击新建的sheet，选择查看代码

. 然后将如下代码复制到代码区，点击菜单栏的运行-运行子过程/用户窗体，合并完之后会弹出提示框。提示完成之后关闭宏计算界面即可

Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub