vba宏，实现根据一列的值自动生成同名工作表

最新推荐文章于 2025-02-05 10:47:09 发布

白波九道

最新推荐文章于 2025-02-05 10:47:09 发布

阅读量645

点赞数

CC 4.0 BY-SA版权

文章标签： excel vba

本文链接：https://blog.youkuaiyun.com/redstream/article/details/11560041

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

给公司做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