取得工作表名称、单元格赋值个工作表名称

Sub 取得工作表名()
    Dim sh As Worksheet
    Dim names As Integer
    Application.ScreenUpdating = False
    For names = 1 To Sheets.Count
    Cells(names, 1) = Sheets(names).Name
    Next names
      Application.ScreenUpdating = True
End Sub

 

单元格赋值给工作表名称
Sub aa()
    Dim arr
    Dim i%
    Application.ScreenUpdating = False
    With Sheets("汇总")
        arr = .Range("D4:D" & .Cells(Rows.Count, 4).End(3).Row)
    End With
    For i = 1 To UBound(arr)
        Sheets.Add(, Sheets(Sheets.Count)).Name = arr(i, 1)
    Next i
    Application.ScreenUpdating = True
End Sub