Excel宏将多个工作簿写入单个工作簿
然后另一个问题是工作簿的名称都不同，所有300个。是否有一个宏可以复制我打开的工作簿，而不是每次都输入实际的名称？
共有1个答案
您可以从以下内容开始：
For i = 1 To Sheets.Count
Sheets.Item(i).Select
Range("A1:D10").Select
Selection.Copy
Sheets("Result").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveSheet.Paste
Next i
您可以在不知道名称的情况下循环工作表，并将结果粘贴到“结果”工作表中，现在只需复制您描述的范围，并粘贴到另一个工作表中
玩得开心！
-
我对宏是新手，需要帮助。我在一个文件夹中有几个工作簿，每个工作簿有四个工作表。现在我想要一个mocro它复制数据从每个工作簿（工作表明智）和过去在我的主工作簿（工作表明智）意味着数据1应该被粘贴一个在另一个下面在我的主工作簿在工作表1和工作表2分别。*工作簿名称可以是文件夹中的任何东西。有人能帮我完成整个代码吗？我有宏从一张表到我分配的表的数据，但它复制粘贴数据从打开的表，而不是按表名明智的。有人
-
所以我有 1500 个 Excel 工作簿，每个工作簿都有 10 张结构完全相同的工作表。我尝试将多个Excel工作簿合并到一个文件中，并使用以下代码成功： 谢谢，努尔贝克
-
我有一个Excel工作簿，其中包含36个不同的工作表，我每两周收到一次，工作表在所有标签上都有共同的标题，并且每个标签上都有不同的唯一标题，但每条记录都有一个唯一的ID，可以有多个记录。 我要做的是从所有的工作表中提取唯一的id，然后将每个工作表中的数据提取到一个工作表中，其中包含所有的公共标题和唯一标题。 我正在考虑使用下面帖子中的代码将其导入Access。连接表并将其导出回Excel中的一个工
-
我想将工作簿的一页（包括样式）复制到新的工作簿。 我尝试对所有单元格进行迭代 抛出java.lang.IllegalStateException：超出了单元格样式的最大数目。在.xls工作簿中最多可以定义4000个样式 抛出java.lang.IllegalArgumentException：此样式不属于提供的工作簿。是否尝试将样式从一个工作簿分配到另一个工作簿的单元格？ 正确的样式复制方法是什么
-
所以在问这个之前，我搜索并发现了一些与我在这里想要做的相似的事情。 基本上我有工作簿AlphaMaster。这个工作簿是一个模板，我想用它来创建每周的新工作簿。 在本工作簿中，有名为“周一至周六”的工作表，以及带有相应日期的周一、周二等其他工作表。 我创建了一个在打开工作簿时加载的表单。我想要的是当我单击表单运行时，它将： > 将代码保存模板作为新工作簿运行 根据userform1的输入重命名工作
-
试图从当前工作簿“Create Report.xlsm”中复制工作表名称“Headings Explantions”，该工作簿打开到我要求打开的工作簿中，我得到了下标超出范围的错误