100分请教一个应该很简单但一直没法解决的问题。

[forgot2000]

一个Excel文件，有多个工作表,假设第一个名字为“1”，第二个名字为“2”，如此类推，现在我想让这些工作表的第一行，前10个单元格依次顺序显示递增数列。
像这样：
第一个工作表第一行，前10个单元格依次为：
T1，T2，T3…，T9，T10
第二个工作表第一行，前10个单元格依次为：
T11，T12，T13…，T19，T20
依此类推：
第11个工作表第一行，前10个单元格依次为：
T101，T102，T103…，T109，T110

请先在本地机试验，是否有什么简便的方法?Thanks!

[zipall]

假设你有100个工作表

Sub TTT()
For s = 1 To 100
For c = 1 To 10
x = x + 1
Sheets(CStr(s)).Cells(1, c) = "T" & x
Next c
Next s
End Sub

[r_swordsman]

up

[liujie625]

修改一下1楼的，
可以不指定工作表个数
for s =1 to sheets.count