日志

Excel批量建sheet的宏命令

已有 740 次阅读| 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