一张excel里面有100张左右的sheet. 怎样把这100张sheet合并到一张sheet，每张sheet的名字也要显示
发布网友
共4个回答
热心网友
WPS会员直接有这个功能能满足你说的全部要求
【智能工具箱】→
【合并表格】
热心网友
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
热心网友
=HYPERLINK("#"&INDEX(Sheet1!a1,1,1)&"！d1",INDEX(Sheet1!a1,1,1))
可以下拉
这个是工作表名字的
热心网友
用VBA完成
