日志
Excel批量建sheet的宏命令
| |
批量将表格数据对应建立超链接的宏命令。
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
Next
shtActive.Activate
End Sub
/1 
eetop公众号
创芯大讲堂
创芯人才网