批量取消隐藏的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
网友评论