(word完整版)VBA代码汇总,推荐文档

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