[已解决]关于Excel中提取工作表名称问题

bert0320

我有一个Excel工作薄，里面有多个工作表，我想在第一个工作表的第一列中将其他所有工作表的名称提取过来，如何实现？请高手给予指点！见附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-19 14:47

1. Sub test()
   
2.     Dim arr()
   
3.     Dim i As Integer
   
4.     Dim sht As Worksheet
   
5.     ReDim arr(1 To Worksheets.Count, 1 To 1)
   
6.     arr(1, 1) = "名称"
   
7.     i = 1
   
8.     For Each sht In Worksheets
   
9.         If sht.Name <> "查询汇总" Then
   
10.             i = i + 1
    
11.             arr(i, 1) = sht.Name
    
12.         End If
    
13.     Next
    
14.     With Worksheets("查询汇总")
    
15.         .Range("a1").CurrentRegion.ClearContents
    
16.         .Range("a1").Resize(Worksheets.Count).Value = arr
    
17.     End With
    
18.     MsgBox "提取完成"
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1.用宏表可以。
2.用VBA。

hwc2ycy

1. Sub test()
   
2.     Dim arr()
   
3.     Dim i As Integer
   
4.     ReDim arr(1 To Worksheets.Count, 1 To 1)
   
5.     arr(1, 1) = "名称"
   
6.     For i = 2 To Worksheets.Count
   
7.         arr(i, 1) = Worksheets(i).Name
   
8.     Next
   
9.     Sheet1.Range("a1").Resize(Worksheets.Count).Value = arr
   
10. End Sub

复制代码

hwc2ycy

1. Sub test()
   
2.     Dim arr()
   
3.     Dim i As Integer
   
4.     Dim sht As Worksheet
   
5.     ReDim arr(1 To Worksheets.Count, 1 To 1)
   
6.     arr(1, 1) = "名称"
   
7.     i = 1
   
8.     For Each sht In Worksheets
   
9.         If sht.Name <> "查询汇总" Then
   
10.             i = i + 1
    
11.             arr(i, 1) = sht.Name
    
12.         End If
    
13.     Next
    
14.     With Worksheets("查询汇总")
    
15.         .Range("a1").CurrentRegion.ClearContents
    
16.         .Range("a1").Resize(Worksheets.Count).Value = arr
    
17.     End With
    
18.     MsgBox "提取完成"
    
19. End Sub
    

复制代码

youfang

1. Sub 工作表名()
   
2. Dim i%
   
3. For i = 1 To Sheets.Count
   
4. Cells(i, 1) = Sheets(i).Name
   
5. Next
   
6. End Sub

复制代码

bert0320

youfang 发表于 2013-6-19 14:53

谢谢！

bert0320

hwc2ycy 发表于 2013-6-19 14:47

真是个高手，谢谢！