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

发布时间:2016-12-7 20:41:36 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"vba宏,实现根据一列的值自动生成同名工作表",主要涉及到vba宏,实现根据一列的值自动生成同名工作表方面的内容,对于vba宏,实现根据一列的值自动生成同名工作表感兴趣的同学可以参考一下。

给公司做EXCEL的报价,主要是在首张汇总表中填写 图号,并建立新的工作表链接,文件太多了,就写了一个宏自动实现这个功能。 -------------------------------------------------------------------------2010-7-15   白波九道     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

上一篇:用javascrip读XML在ie,firefox和chrome下的差异
下一篇:为什么会看到人民币上的西游记脸谱

相关文章

相关评论