如何动态表达工作表名 sheets（"I"）

188zuqiu · 发表于 2012-1-21 22:46

本帖最后由 188zuqiu 于 2012-1-21 22:54 编辑

问，

for i = 1 to .sheets.count

sheets( "i").range("g27").select
。。。。。。。
next i

问下高手，其中的工作表名动态表示方法对吗？在线等待中。先感谢了。

qy1219no2 · 发表于 2012-1-21 22:53

本帖最后由 qy1219no2 于 2012-1-21 22:53 编辑

sheets(i & "").……

188zuqiu · 发表于 2012-1-21 22:54

本帖最后由 188zuqiu 于 2012-1-21 23:07 编辑

qy1219no2 发表于 2012-1-21 22:53
sheets(i & ""）

刚试过，你的方法不行啊。求正确的表达。

LangQueS · 发表于 2012-1-21 23:12

Sheets(i)

建议楼主上传问题附件说明这样操作的缘由或实际遇到的具体需求，使大家了解问题全貌，以便灵活解决问题。

188zuqiu · 发表于 2012-1-21 23:18

本帖最后由 188zuqiu 于 2012-1-21 23:22 编辑

LangQueS 发表于 2012-1-21 23:12
Sheets(i)

建议楼主上传问题附件说明这样操作的缘由或实际遇到的具体需求，使大家了解问题全貌，以便灵活 ...

首先恭祝版主新春快乐。你辛苦啦。呵呵。
我的问题：

就是，我有一个文件，共有100个工作表。想在第101表中，把前100个表相同位置：RANGE("B27：D27")的值全部复制到工作表sheets（“101”）的 B列。从B10单元格开始顺序向下输出。

我参考写了个代码如下：

Private Sub CommandButton2_Click()
Dim i As Integer
i = 10
Dim k As Integer
For k = 1 To Sheets.Count
.Sheets(k & "").Range("b27:d27").Select ‘ 不知此处问题在哪里？
With Sheets("120")
.Sheets("120").Range("b" & i).Copy
i = i + 1
End With
Next k
End Sub

LangQueS · 发表于 2012-1-21 23:43

Sub 宏1()
i = 100
For k = 1 To i
Sheets("101").Range("b" & k + 9 & ":d" & k + 9) = Sheets(k).Range("b27:d27").Value
Next
End Sub

复制代码

LangQueS · 发表于 2012-1-21 23:44

题外话

为何要设置那么多工作表呀？……关于管理数据的方法请参考：

[原创]★Excel数据管理的一般规律★ http://club.excelhome.net/thread-287461-1-1.html

188zuqiu · 发表于 2012-1-21 23:48

LangQueS 发表于 2012-1-21 23:44
题外话

为何要设置那么多工作表呀？……关于管理数据的方法请参考：

呵呵，非常感谢版主的帮助！

188zuqiu · 发表于 2012-1-21 23:49

LangQueS 发表于 2012-1-21 23:43

再次感谢版主。

188zuqiu · 发表于 2012-1-21 23:57

LangQueS 发表于 2012-1-21 23:43

刚测试了，太爽了，版主的妙招，需要好好学习。感谢！

		自动登录	找回密码
密码			免费注册

[求助] 如何动态表达工作表名 sheets（"I"）