工作表选项卡名称更改基于单元格值

Question

我想基于单元格值更改工作表选项卡名称，仅在工作表1中更改，其他工作表未更改

没有

Public Sub ChangeSheetNames()
    Dim ws As Worksheet

    'lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    'For i = 2 To lastRow
    On Error Resume Next
    For Each ws In Worksheets
    'ws.Tab = ws.Cells(i, 2)

       If ws.Range("A2").Value <> "" Then
          ws.Name = ws.Range("A2").Value
       End If

    Next ws
End Sub

仅更改第1张纸我需要最少更改50张纸

Answer 1

试试这个宏：

Public Sub ChangeSheetNames()
    Dim lLastRow As Long
    With Worksheets(1)
        lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To Worksheets.Count
            If .Cells(i, 1).Value <> "" Then Worksheets(i).Name = .Cells(i, 1).Value
        Next
    End With
End Sub