|
Sub shtname()
Dim i As Integer, sht As Worksheet
i = 1
For Each sht In Worksheets
Sheet1.Hyperlinks.Add Cells(i, 1), "", sht.Name & "!A1", , sht.Name
'在Cells(i,1)单元格添加超链接,超链接至sht工作表的A1单元格,超链接名为工作表名
i = i + 1
Next
End Sub
这段代码是提取所有工作表的名字并创建链接存放在A列。希望在这段代码的基础上,提取每个工作表某一列(希望编的程序能弹出选择哪一列,请考虑这列可能出现空格)最后一个数据并存放在B列。B列的数据和A列的工作表名一一对应。请各位高搜帮忙。
说明:以前老会计做的账目一个工作簿里面N个工作表,每个工作表一个客户,而每个工作表的某一列的最后一个数是应收款。我现在在做一个目录,方便查找,并能直接反映看每个客户的应收款项。工作表里一改动 目录里直接反映出来。
请测试 - Sub shtname()
- Dim i As Integer, j As Integer, sht As Worksheet
- Dim x As Range
- On Error Resume Next
- Set x = Application.InputBox("请选择要提取的列:", , , , , , , 8)
- If Not x Is Nothing Then
- i = 1
- j = x.Column
- For Each sht In Worksheets
- Sheet1.Hyperlinks.Add Cells(i, 1), "", "'" & sht.Name & "'!A1", , sht.Name
- Cells(i, 2) = sht.Cells(65536, j).End(xlUp).Value
- i = i + 1
- Next
- End If
- End Sub
复制代码
|
|