美文网首页
excel操作

excel操作

作者: 小鹏_哒哒哒 | 来源:发表于2020-06-29 14:57 被阅读0次

批量取消隐藏的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

相关文章

网友评论

      本文标题:excel操作

      本文链接:https://www.haomeiwen.com/subject/lliofktx.html