九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

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

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。