日志

Excel批量建sheet的宏命令

已有 659 次阅读| 2023-5-15 11:51 |系统分类:其他

批量将表格数据对应建立超链接的宏命令。

Sub NewSht()

Dim shtActive As Worksheet, sht As Worksheet

Dim i As Long, strShtName As String

On Error Resume Next

Set shtActive Activesheet

For i= 2 To shtActive. Cells(Rows.Count, 1).End(xlUp).Row

strShtName shtActive. Cells(i, 1).Value

Set sht Sheets(strShtName)

If Err Then

Worksheets.Add, Sheets(Sheets. Count)

ActiveSheet. Name strShtName

Err.Clear

End If

shtActive.Activate

End Sub

GMT+8, 2024-11-22 08:07 , Processed in 0.021795 second(s), 14 queries , Gzip On, Redis On.

eetop公众号

创芯大讲堂

创芯人才网