如何将excel表的工作表名称拷贝下来?
发布网友
发布时间：2022-04-23 07:07
共4个回答
热心网友
时间：2022-06-17 06:20
我的回答描述已经非常清晰，无需修改！
可以用VBA编辑宏代码实现，还可以建立超链接，当需要时可在该表直接链接到目标工作表。代码如下：
1、工作表名称规则无特殊符号可用
Sub 目录()
Dim sh As Worksheet
For i = 1 To Worksheets.Count '遍历工作表
Set sh = Worksheets(i)
Cells(i, 1).FormulaR1C1 = sh.Name '将工作表名称写入A列cells(i,1)中的1代表A列。
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=sh.Name & "!A1" '添加超链接
Next
End Sub
2、当工作表名称中有括号等符号可用
Sub 目录()
Dim sh As Worksheet
For i = 1 To Worksheets.Count '遍历工作表
Set sh = Worksheets(i)
Cells(i, 1).FormulaR1C1 = sh.Name '将工作表名称写入A列cells(i,1)中的1代表A列。
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & sh.Name & "'" & "!A1" '添加超链接
Next
End Sub
1、按Alt+F11，调出VBA编辑器，在下图sheet3右击，插入——模块。
2、将所需代码复制到编辑器中，如下图所示：
3、选择要生成目录的工作表，光标置于代码中按F5，工作簿中的所有工作表就填充在该工作表，并建立了超链接，方便查阅。
热心网友
时间：2022-06-17 06:20
新建一个工作簿一般会自动形成3个工作表即Sheet1、Sheet2、Sheet3，如下想复制工作表名字，你直接双击一下工作表名字：Sheet1 然后按ctrl+c即可复制。
热心网友
时间：2022-06-17 06:21
1、用宏3.0取出各工作表的名称，方法：
Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
确定
2、用HYPERLINK函数批量插入连接，方法：
在目录工作表（一般为第一个sheet）的A2单元格输入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充，直到出错为止，目录就生成了。
热心网友
时间：2022-06-17 06:21
插入－名称－定义，名称：mysheets；引用位置：=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())
在A1输入： =IF(ROW()>COUNTA(MySheets),"",INDEX(MySheets,ROW()))
－－－－－－－－－－－
另：参见http://hi.baidu.com/%B4%BA%B7%D6%BA%C3%CA%B1%BD%DA/blog/item/333c437ed8aea93e0cd7da01.html
