Excel VBA-代码汇总

=====================

Sub 根据指定单元格内容批量命名工作表()
    Dim a%
    For a = 1 To Sheets.Count
        Sheets(a).Name = Sheets(a).Range("a1")
    Next
End Sub

=====================

Sub 根据各工作表指定位置单元格内容命名工作表()
    On Error Resume Next

    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Name = sh.Range("a1")
    Next
End Sub

=====================

=====================

=====================

=====================

=====================

=====================

=====================

=====================

=====================

=====================

=====================

=====================

=====================