有个关于工作表的问题

zukais

现有 20个工作表 在 一个 Excel文档中，每个工作的名称 都是 以  工作+数字进行命名，如 工作1，工作2.。。。工作20.

现在想用循环语句对 20个工作表进行 批量 处理，如何选定工作表。有没有线面的语句，

dim N as integer
.......
Sheets("工作 & N).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
.......
或者怎么搞。

谢谢大家帮助！

grf1973

录制宏就可解决：
Sub 宏1()
    Sheets(Array("工作1", "工作2", "工作3")).Select
    Sheets("工作1").Activate
    ActiveCell.FormulaR1C1 = "1234"
    Range("A2").Select
End Sub

zukais

{:soso_e110:}嗯。这样的话，我要拷贝好多个 类似的宏，再改名称。好像也不容易啊。

grf1973

Sheets(Array("工作1", "工作2", "工作3")).Select
表示所有工作表都选中了，每个工作表都会执行下面的相应操作。不用录制很多宏

grf1973

Sub tt()
    Set mrng = [a1].CurrentRegion
    For Each sh In Worksheets
        mrng.Copy
        sh.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
    Next
End Sub

zukais

了解。谢谢。我去试试。