[已解决]如何引用多个工作表名

nicky_0101

在一个EXCEL文件中,有多张工作表,自左至右各张工作表名依次为"北京"、"天津"、"上海"、“广东”......等等，最后（最右边）的工作表名为“一览表” 想在最右边“一览表”中的一单元格开始，自动生成一列（或一行），这一列自上而下（或一行自左向右）内容分别为："北京"、"天津"、"上海"、“广东”......等等 请教诸位，如何生成数据？ 多谢！

最佳答案

月排行榜 / 总排行榜

chqyz

2011-8-19 16:43

1. 
   
2. Sub huizong()
   
3.     Dim i As Integer
   
4.     For i = 1 To Worksheets.Count
   
5.         If Worksheets(i).Name <> "一览表" Then
   
6.             Worksheets("一览表").Cells(i, 1) = Worksheets(i).Name
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

chqyz

1. 
   
2. Sub huizong()
   
3.     Dim i As Integer
   
4.     For i = 1 To Worksheets.Count
   
5.         If Worksheets(i).Name <> "一览表" Then
   
6.             Worksheets("一览表").Cells(i, 1) = Worksheets(i).Name
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

nicky_0101

不能用公式解决吗？

ljzzlan

呵呵 ，现在开始跟着学代码！

chqyz

nicky_0101 发表于 2011-8-19 16:49
不能用公式解决吗？

公式的方法不会，估计函数没法实现