excel表里有几十个表格，怎么按名称找到想要的sheet工作表？用vba怎么写代码？

VBA excel如何自动获取当前工作表的名字？~

1.
一步搞定之代码
Sub 提取所有工作表名称()
for x=1 to sheets.count
cells(x,1)=sheets(x).name
next x
End Sub
如图，按照顺序来就可以啦。


方法/步骤
1.分步阅读
首先我们打开一个工作样表作为例子。


2.
工作表标签名即是工作表的名称，在指定激活当前工作表时，可以使用worksheets（“工作表名称”）的方法来指定。我们这里可以使用vba来获取这个名称。


3.
我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Sub Delete_EmptySheets()
Dim sh As String

sh = Worksheets(1).Name
MsgBox sh
End Sub


4.
运行这段代码后，就可以获得5月工资这个工作表的名称。并将这个名称赋予了sh这个变量。我们就可以使用这个变量来指定工作表。


5.
这里我们需要注意的是，worksheets（）使用工作表名称来指定工作表的时候字符串必须使用“”括住，而使用变量时则不需要，如果用“”括住变量，那么变量会被识别为字符串而出错。

6.
修改名称我们可以直接使用worksheets（）.name= 的方式进行改名。修改的名称如果使用变量赋值，则不需要“”括住，如果是直接输入，则同样需要以字符串的方式。

具体操作步骤如下：
1、第一步，打开Excel表格，在主界面按Alt+f11下快捷键，如图所示。

2、第二步，进入到VBA编辑器，点击上面菜单栏中的插入，再选择【模块】，如图所示。

3、第三步，在弹出的模块窗口中，输入下面的代码：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub，
如图所示。

4、第四步，输入好后，在编辑器的左侧，输入模块的名称。如图所示。

5、第五步，关闭编辑器窗口，返回到表格中，点击上方菜单栏中的视图，再点击下方菜单栏的宏，选择查看宏，如图所示。

6、最后一步，在弹出的宏窗口中，单击宏名，再单击【执行】就可以了，如图所示。

右键点击那个小箭头

Sub 工作表名称()
Dim sh As Worksheet
For Each sh In Worksheets
wtName = sh.Name
If wtName = "Sheet3" Then
Sheets(wtName).Select
MsgBox wtName
End If
Next
End Sub
假设查找的工作表名称是 "Sheet3"

用超链接就可以了，何必非要用VBA。

excel里的编辑里有一个寻找命令，你试试吧

---

即墨市15137677802： 如何在excel中在一个表中操作好几个表 - ？
孔雁前列： 1、用EXCEL的分类汇总功能,或者用手动的分级显示都可以.2、手动的分级显示:菜单栏上的“数据”-“组及分级显示”,然后根据实际需要选择一个分级显示方式,也可以用快捷键:选择需要分级显示的行号或列号,按ALT+SHIFT+→取消:ALT+SHIFT+←

即墨市15137677802： 怎样将excel表里面的多个表格调出变成单独一个表格? - ？
孔雁前列： 1、打开需要编辑的Excel文档.如图所示,工作簿下方有很多工作表.现在需要将这些工作表单独拆分开成一个个工作簿.2、右键任意一个工作表标签,在弹出的下拉列表中选择查看代码.即弹出代码窗口.如下图所示.3、点击菜单插...

即墨市15137677802： 一个EXCEL表格中含有多个工作表,怎么分出来?？
孔雁前列： 打开这个excel (最好放到某个文件夹内) 按alt+F11, 视图---代码窗口 --把如下复制进去--按F5 运行即可 Sub fencun() Application.ScreenUpdating = False b = Sheets.Count For i = 1 To b Sheets(i).Copy a = ThisWorkbook.Worksheets(i).Name ...

即墨市15137677802： 在同一个excel表里面有多个(超过20个)工作表,要汇总到一个表,但是 - ？
孔雁前列： 20多个表,如果格式一样,那么表头都是一样的,可以用以下方法:首先把你所有文件打开,最小化,打开一个新的excel,excel 2007 - data - data tools - 找到consolidate点击,然后在上面按钮table中,点击view - 点击switch Windows(这时只有...

即墨市15137677802： excel表格中,将几个表快速合并到一个表里 - ？
孔雁前列： 相同格式的许多张表格数据汇总,简单方法就是把每一张表的同一单元格数据叠加起来.设sheet1的A2=sheet2A2+sheet3A2+sheet4A2……,然后向右拉和向下拉,不管有多少表格,都可以汇总到一起,表格多第一次设置时有点烦,以后后面表格数据变动,汇总表会同时随之变动.

即墨市15137677802： excel一个工作簿有几个表如何合并成一个？
孔雁前列： 下面的VBA 代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作表里.同时需要注意的是,所有工作表里的数据结构,列标题,以及各列排列的顺序都必须一样.操作如下: 1. 按住Alt + F11键打开 Microsoft Visual Basic for ...

即墨市15137677802： 请教一下EXCEL高手,我做了一个工作簿,里面有几十个工作表,每个表都分别有A - E五列,我现在想批量调整列 - ？
孔雁前列： 按住CTRL不放,用鼠标左键点工作表标签,如sheet1,sheet2...sheet50,即选中所有要调整一样的工作表.然后只要调整一个工作表的就行.其它会跟着变.

即墨市15137677802： 如何将多个excel表格拆分出来 - ？
孔雁前列： 可选用以下方法: 一、使用“分列”功能解决.选中需要拆分的单元格,点菜单“数据”——“分列”—,根据实际情况选择“分隔符号”或“固定宽度”分隔——“下一步”,在“其他”中输入分隔符号或点标尺切割数据,最后在“目标区域...

即墨市15137677802： 急:Excel里一个工作簿有几十个工作表,一个总表其他分表格式数据一样,怎么快速在各个表中相同行插入空白 - ？
孔雁前列： 同时选上所有工作表就可以一起操作了 用shift或者ctrl点选 但必须注意位置要一样

即墨市15137677802： 如何把excel表格中多个工作表汇总到一个工作表中 - ？
孔雁前列： 使用冻结法可将多个Excel表格整合成到一个表格内. 1,打开Excel表格点击菜单栏“视图”→“冻结窗格”→“冻结拆分窗格”.2,将拆分出来的窗格如图“1-11”冻结.3,使用“冻结首行”滚动工作表其余部分保持首行可见.4,冻结首行内容.5,冻结表格首列,如用户首列内容不需要改可用此冻结方案.6,将首列内容冻结.详细方法: http://www.officezu.com/a/excel/1266.html