excel中如何批量把一个工作簿当中的每个工作表名称复制出来

Posted 2023-04-13

例如 一个工作簿当中有工作表sheet1 sheet2 sheet3....需要把各个工作表名复制出来

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧需要存放名称的那个Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。这样，在该Sheet的A列就会罗列出所有工作表名称。

 

Sub fz()
Dim i As Integer
For i = 1 To Sheets.Count
    Range("A" & i).Value = Sheets(i).Name
Next
End Sub

参考技术A

复制到哪里去啊？

用宏呗

sub copySheetNames()
    dim str as string
    for each st in worksheets
        str=str & chr(10) & sh.name
    next
    msgbox mid(str,2)
end sub

本回答被提问者采纳

多个Excel工作簿怎么合并成一个新的工作簿

参考技术A

把多个内容近似的EXCEL表格合并成一个新表格，可以减少文件数目，便于整理，下面我就来讲讲合并多个Excel的方法。

01

首先，我们打开两个excel表格来演示，如图所示，我需要把表格1的内容整体合并到表格2中。

02

页面切换到表格1，如图所示，右键单击“sheet1”，弹出菜单选择“移动或复制工作表”。

03

如图所示，点击下拉菜单，选择“表格2”（此时，表格1和表格2都处于打开状态），然后根据需要，选择表格1插入位置，点击确定。

04

此时，就发现表格1的“sheet1”移动到了表格2中的“sheet3”之后，而原表格1中没有“sheet1”了，效果如图所示，把其他表格移动的步骤与此相同，这样，多个表格就能合并到一个工作簿中了。