一张excel里面有100张左右的sheet. 怎样把这100张sheet合并到一张sheet，每张sheet的名字也要显示

发布网友发布时间：2022-04-24 19:39

共4个回答

热心网友时间：2023-10-08 22:56

WPS会员直接有这个功能能满足你说的全部要求

【智能工具箱】→
【合并表格】

热心网友时间：2023-10-08 22:57

1 新建一个工作表放在最左边，ALT + F11 键打开代码框--插入--模块--复制以下代码
ALT + F8 键打开，运行该代码即可
Sub 合并()
For I = 2 To Sheets.Count
Range("A" & Range("A60000").End(xlUp).Row + 1) = Sheets(I).Name
Sheets(I).Rows("1" & ":" & Sheets(I).Range("A60000").End(xlUp).Row). _
Copy Range("A" & Range("A60000").End(xlUp).Row + 1)
Next
End Sub

热心网友时间：2023-10-08 22:57

=HYPERLINK("#"&INDEX(Sheet1!a1,1,1)&"！d1",INDEX(Sheet1!a1,1,1))
可以下拉
这个是工作表名字的

热心网友时间：2023-10-08 22:58

用VBA完成