如何从一个excel中批量提取多个固定的sheet页?

发布网友发布时间：2022-04-26 02:49

共3个回答

热心网友时间：2022-06-02 21:45

展开3全部

在工作簿添加一个新的工作表，将需要提取的sheet页名放在A列

右键点击工作表名，选择查看代码，贴入以下代码：

Sub 选择复制()

ReDim arr([a1].End(xlDown).Row - 1)

For i = 1 To [a1].End(xlDown).Row

arr(i - 1) = Cells(i, 1)

Sheets(arr).Copy

End Sub

最后按F5执行。

热心网友时间：2022-06-02 21:46

不用一个一个的复制，可以选择多个sheet页，一次性复制一组工作表。
选择多个的方法是按住CTRL或者SHIFT点表格，CTRL是单独增减一个，SHIFT是选择开始、结束的一群

热心网友时间：2022-06-02 21:46

保持左击点选所需的页码再按住 "Ctrl" 键；拖延往新的文档

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com