excel操作

批量取消隐藏的sheet
Alt+F11，单击插入，模块，运行

Sub ShowSheets()
For Each Sheet In Sheets
Sheet.Visible = True
Next
End Sub

这时所有的隐藏表格都显示出来；

合并所有sheet
Alt+F11，单击插入，模块，运行

Sub ShowSheets()
For Each sh In Sheets
If sh.Name <> Sheets(1).Name Then
行 = Sheets(1).Range("A65536").End(3).Row + 1
sh.UsedRange.Copy Sheets(1).Range("A" & 行)
End If
Next
End Sub

所有表格信息合并到第一个sheet