VBA 实用集锦

1. 批量取消隐藏工作表

Sub iVisibleTrue()
'
' 在工作薄中手动将隐藏的工作表显示需要一个一个进行，比较麻烦，用VBA批量操作。
'
    Dim i As Integer
    For i = 1 To Worksheets.Count
        Worksheets(i).Visible = True
    Next
End Sub

1. 突出显示包含相同姓名老师所在的单元格
   单元格内容为“课程\n姓名”，一个教师可能带多门课程

Private