宏，实现在EXCEL中根据一列自动生成同名工作表，并建立超链

最新推荐文章于 2025-09-09 16:04:35 发布

原创最新推荐文章于 2025-09-09 16:04:35 发布 · 830 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一种使用宏自动化填充Excel报价单中图号并建立工作表链接的方法，适用于处理大量文件，提高了工作效率。

给公司做EXCEL的报价，主要是在首张汇总表中填写图号，并建立新的工作表链接，文件太多了，就写了一个宏自动实现这个功能。

-------------------------------------------------------------------------2010-7-15 白波九道

自己写的一个宏，实现在EXCEL中根据一列自动生成同名工作表，并建立超链 - 白波九道 - 白波九道的博客

Sub Name()
'
' name Macro
' 宏由白波九道录制，时间: 2010-7-16
'
Dim i As Integer
Dim j As Integer
Dim Name As String

'将图号名字赋于第一个工作表，并建立链接，将材料价格填写到图号后
'row = Worksheets("汇总表").UsedRange.Rows.Count
'For i = 2 To row
i = 4
j = 2
Worksheets("汇总表").Activate
Do While Not IsEmpty(Sheets("汇总表").["b"&i])
    Worksheets("汇总表").Activate
    Name = Range("b" & i).Value
    If Name = "" Then
        Exit Do
    Else
        If IsEmpty(Sheets("汇总表").["b"&i]) Then
            Exit Do
        Else
            Sheets(j).Name = Name
            ActiveSheet.Hyperlinks.Add anchor:=Range("b" & i), Address:="", SubAddress:="'" & Name & "'" & "!" & "A9"
            Worksheets(2).Copy after:=Worksheets(Worksheets.Count)
            i = i + 1
            j = j + 1
        End If
    End If

Loop
'Next i
'
End Sub