多个工作表内容提取如何操作

heyihan_23

如题目，我一个工作表里面有多个不同名字的工作表，我需要把每一个工作表的应付金额与数量提取出来。需要怎么操作，而且我还需要把每一个工作表名字提出。我需要把这些工作表里面的工作表名字，应付金额，收货数量这三个数值提取出来做成一个目录方便查看。求大神帮忙。

dengjq2000

你这当量取那些数？

dengjq2000

增加一个提取工作表名的 公式 -名称管理器

heyihan_23

1. Sub 创建工作表目录()
   
2. '
   
3. If Sheets(1).Name <> "目录" Then
   
4. yn = MsgBox("【目录】工作表不存在，建立【目录】吗？", vbYesNo, "建立【目录】工作表")
   
5.    
   
6. If yn = vbYes Then
   
7. Sheets.Add(Sheets(1)).Name = "目录"
   
8.    
   
9. Columns("A:A").Select
   
10. With Selection
    
11. .HorizontalAlignment = xlCenter
    
12. .VerticalAlignment = xlCenter
    
13. .ColumnWidth = 3  '此处（6）是指定单元格宽度
    
14. End With
    
15. 
    
16.    
    
17. Columns("B:B").Select
    
18. With Selection
    
19. .HorizontalAlignment = xlLeft
    
20. .VerticalAlignment = xlCenter
    
21. .NumberFormatLocal = "@"
    
22. .ColumnWidth = 18  '此处（36）是指定单元格宽度
    
23. End With
    
24.    
    
25. Range("A1").Select
    
26.    
    
27. Else
    
28. End
    
29. End If
    
30.    
    
31. Else
    
32. yn = MsgBox("【目录】工作表已存在，更新数据吗？", vbYesNo, "更新目录数据")
    
33.    
    
34. If yn = vbNo Then End
    
35.    
    
36. End If
    
37.    
    
38. Sheets("目录").Select
    
39. Columns("A:B").Select
    
40. Selection.ClearContents
    
41. Range("A1").Select
    
42. Cells(1, 1).Value = "序号"  '此处1表示在第一列显示序号
    
43. Cells(1, 2).Value = "工作表名称"  '此处2表示在第二列显示工作表名称
    
44. Cells(1, 3).Value = "交货数量"  '此处3表示在第三列显示交货数量
    
45. Cells(1, 4).Value = "应付金额"  '此处4表示在第四列显示应付金额
    
46.    
    
47. Application.ScreenUpdating = False
    
48.    
    
49. For i = 2 To Sheets.Count
    
50.    
    
51. Sheets("目录").Select
    
52. Cells(i, 1).Value = i - 1
    
53. Cells(i, 2).Value = Sheets(i).Name  '此处（2）是指定在第二列显示工作表名称
    
54. Cells(i, 2).Select
    
55. Cells(i, 3).Value = Sheets(i).[I12]  '此处（I12）是指定某个单元格显示内容
    
56. Cells(i, 4).Value = Sheets(i).[r17]  '此处（R17）是指定某个单元格显示内容
    
57. ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    
58. "'" & Cells(i, 2).Value & "'!A1", TextToDisplay:=Cells(i, 2).Value  '此处代码是超链接返回
    
59. Next i
    
60. 
    
61. 
    
62.    
    
63. Application.ScreenUpdating = True
    
64. yn = MsgBox("工作表已更新，点击【确定】查看！", vbOKOnly, "查询工作表")
    
65. 
    
66. End Sub
    
67. 
    
68. 
    
69. 
    
70. 
    
71. 
    

复制代码

heyihan_23

这个是我自己研究并综合了一下，这个代码可以批量将工作表名称加超链接还能将需要的数据提取到 对应的后面并能自定义列标题名字。