怎样才能选中excel全部工作表？

如题所述

推荐答案 2023-04-20

excel中如何快速选中全部工作表

方法1：在任一工作表标签点选右键，选择“选定全部工作表”。
方法2：先点第一个工作表，然后按住shift键时，点最后一个工作表。

以Microsoft Office Excel 2007为例，介绍Excel如何快速选中全部工作表：
1、开启需要操作的Excel文件，文件需要包含两个以上的工作表；
2、单击需要选中的第一个工作表；
3、如果要选中连续的多个工作表，则按住键盘“Shift”键，同时用滑鼠左键点选需要选中工作表的最后一个；
4、如果需要选中的工作表不是连续的，则按住键盘“Ctrl”键，同时用滑鼠左键点选需要选择的工作表。
这样可以快速的选中多个工作表或者全部工作表了！

Excel如何快速选中多个或者全部工作表

第一个工作表的名称处点一下启用第一个工作表，接着点一下至末尾工作表的按钮，此时按住SHIFT键不放，点一下最后的工作表的名称处，即选择了全部的工作表
或是要选择部分工作表形成工作组的话，前面一样，只是按住CTRL键不放，再逐个点按工作表名称，即可。

如何快速选定EXCEL中的全部工作表

选中第一个工作表，按住shift，再点选最后一个工作表，即可全部选中

如何快速选中某个工作表

就比如下面的这个工作薄中，存在11个工作表，并且，表名都使用数字。换句话说，如果您的工作表数量达到几十个甚至超过一百个，那么，您如何能从众多的表名当中，迅速的选择您所想开启的表格呢? 方法如下，有两种方法。一、通用效益方法看下图，红色圈住的那部分，称为名称框。办公软体教程在名称框中输入表的名称再输入!感叹号再输入A1单元格，然后，按下回车键，即可快速选择。名称框中的输入，格式为：表名!单元格地址比如，Sheet99!A1 这种方法，是快速通用的方法，适用于任何情况。关键一点是，您必须记住表的名称。二、权宜选择法如果您的表数量不多不少，那么，就可以使用这种方法了。注意看上图的红线圈住的那部分，只要用滑鼠右键点选那部分，就会弹出所有表的名称的列表，然后，您就可以使用滑鼠来查询并选择您想选中的表名称了。

如何快速拆分excel工作表

Sub 拆分为工作薄()
Dim d As Object
Dim i, f As Integer
Dim wb As Workbook
Set d = CreateObject("Scripting.Dictionary")
Dim arr As Variant
arr = Sheets("汇总").Range("a1").CurrentRegion
For i = 3 To UBound(arr)
d(arr(i, 1)) = ""
Next i
For Each k In d.keys
Application.SheetsInNewWorkbook = 1
Set wb = Workbooks.Add
For i = 3 To UBound(arr)
If ThisWorkbook.Worksheets("汇总").Cells(i, 1) = k Then
ThisWorkbook.Worksheets("汇总").Rows("1:2").Copy wb.Worksheets(1).[a1]
ThisWorkbook.Worksheets("汇总").Rows(i).Copy
wb.Worksheets(1).Columns(1).Cells(wb.Worksheets(1).Columns(1).Cells.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
Next i
f = wb.Worksheets(1).Columns(36).Cells(wb.Worksheets(1).Columns(36).Cells.Count).End(xlUp).Row + 1
wb.Worksheets(1).Cells(f, 36) = Application.Sum(wb.Worksheets(1).Range(wb.Worksheets(1).Cells(3, 36), wb.Worksheets(1).Cells(f - 1, 36))) / (f - 3)
wb.Worksheets(1).Cells(f, 37) = Application.Sum(wb.Worksheets(1).Range(wb.Worksheets(1).Cells(3, 37), wb.Worksheets(1).Cells(f - 1, 37))) / (f - 3)
wb.Worksheets(1).Cells(f, 38) = Application.Sum(wb.Worksheets(1).Range(wb.Worksheets(1).Cells(3, 38), wb.Worksheets(1).Cells(f - 1, 38))) / (f - 3)
For Each a In wb.Worksheets(1).Shapes
a.Delete
Next
wb.Worksheets(1).Name = k
wb.SaveAs Filename:=ThisWorkbook.Path & "\拆分\" & k & ".xls"
wb.Close False
Next
End Sub