vba代码汇总

1：打开所有隐藏工作表 Sub 打开所有隐藏工作表()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).Visible = TrueNext i E