Question

求高手帮忙给解决一下EXCEL宏（VB）循环的问题，我就简单在帮助里搜了几行代码，但这样太费劲了。

Windows("标准粘贴表格.xls").Activate
Range("A1:AC3).Select
Selection.Copy
Workbooks.Open "E:\新建文件夹\1 (1).xls"
Range("A2").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close

Windows("标准粘贴表格.xls").Activate
Range("A1:AC3").Select
Selection.Copy
Workbooks.Open "E:\新建文件夹\1 (2).xls"
Range("A2").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close

基本目标就是打开所有该文件夹中的.xls文件，直到每个文件都被打开过之后，宏自动结束，我现在是简单罗列了几条代码，需要把文件重命名，而且每次只能支持140个文件，很费劲。求哪位高手能给用循环之类的东西给合并一下代码。

Answer 1

Sub xxx()
    Dim MyPath, MyName
MyPath = "e:\temp\文件\"    '这是我电脑上的路径，你需要修改
MyName = Dir(MyPath & "*.xls")    ' 找寻第一项。
Do While MyName <> ""    ' 开始循环。
    Workbooks.Open MyPath & MyName
    Windows("标准粘贴表格.xls").Range("A1:AC3").Copy ActiveSheet.Range("A2")
    ActiveWorkbook.Save
    ActiveWindow.Close
    MyName = Dir    ' 查找下一个目录。
Loop
End Sub

追问

谢谢高手的帮助，代码已经成功运行，但是还要有一点小问题，我想把结果汇总，就写了一下几行代码，粘贴到一张表，由于结果有5行，需要跳着粘贴，估计又要编个循环什么的，还是需要您帮忙给合并一下。想把代码粘上来，沾不上来了，能问一下您的邮箱、qq什么的么，我给您发过去，我的邮箱是387760031@qq.com,成了一定采纳您的答案

追答

你补充的我没看明白，希望拷屏、画图说清楚。