[已解决]如何获取多个表的指定位置到一个表中

新朋友--

一个簿里面有200多个表，每个表都有一个标题在A1的位置，我希望把所有表的标题保存在一个表中，按照列的方式保存。有什么办法嘛？之前知道引用方法”=‘shest2'!A1“，但是只能复制一个表的，也不能通过下拉列表的方式复制其他表的表头，希望有大神用vba的方法快速解决一下

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-5-24 16:11

1. Sub 目录()
   
2.     Application.DisplayAlerts = False
   
3.     On Error Resume Next
   
4.     Set sh = Sheets("目录")
   
5.     If Err <> 0 Then
   
6.         Set sh = Sheets.Add(before:=Sheets(1))
   
7.         sh.Name = "目录"
   
8.     Else
   
9.         sh.Cells.ClearContents
   
10.     End If
    
11.     Sheets("目录").Range("a1") = "目录"
    
12.     For i = 2 To Sheets.Count
    
13.         Sheets("目录").Cells(i, 1) = Sheets(i).Range("a1").Value
    
14.     Next
    
15.     Application.DisplayAlerts = True
    
16. End Sub

复制代码

跳转到最佳答案楼层

qqyyh

=INDIRECT("Sheet"&ROW(A1)&"!$a$1")

新朋友--

qqyyh 发表于 2017-5-24 13:23
=INDIRECT("Sheet"&ROW(A1)&"!$a$1")

谢谢您的帮助，不过有个小小的问题，就是我已经把每个工作表的名称改了，改成了0101，0102，0201，0202，0203，这样的，还有救嘛……

望帝春心

新朋友-- 发表于 2017-5-24 13:51
谢谢您的帮助，不过有个小小的问题，就是我已经把每个工作表的名称改了，改成了0101，0102，0201，0202， ...

还是用VBA方便，不管你怎么改工作表名都行，改完重新点下代码执行按钮就行了。如果仅取各工作表A1的值，改工作表名也不影响，貌似...

新朋友--

望帝春心 发表于 2017-5-24 14:03
还是用VBA方便，不管你怎么改工作表名都行，改完重新点下代码执行按钮就行了。如果仅取各工作表A1的值， ...

是啊，……但是我不会啊，我自从进了这个社区，就有想法要学习一下VBA，但是现在学也不能马上解决问题，就像之后再说，您有办法写一下这个循环嘛？好让我先完成任务，谢谢啦

望帝春心

1. Sub 目录()
   
2.     Application.DisplayAlerts = False
   
3.     On Error Resume Next
   
4.     Set sh = Sheets("目录")
   
5.     If Err <> 0 Then
   
6.         Set sh = Sheets.Add(before:=Sheets(1))
   
7.         sh.Name = "目录"
   
8.     Else
   
9.         sh.Cells.ClearContents
   
10.     End If
    
11.     Sheets("目录").Range("a1") = "目录"
    
12.     For i = 2 To Sheets.Count
    
13.         Sheets("目录").Cells(i, 1) = Sheets(i).Range("a1").Value
    
14.     Next
    
15.     Application.DisplayAlerts = True
    
16. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

新朋友--

望帝春心 发表于 2017-5-24 16:12

谢谢前辈的热心帮助