Excel宏可从多个工作簿写入单个工作簿

Question

我有300个单独的工作簿，它们的格式相同，并且要在每个工作簿中使用某些字段并写入一个工作簿，以便可以将一个infile导入SAS并运行报告。 我知道如何对宏进行简单的复制和粘贴，但是您必须知道每本书的名称并打开它们，而且我有300份单独的工作簿，它们的名称各不相同，因为它们是从各个医院寄来的。

例如：我的书简称为macro 1医院的书是johnhopkins，另一本书是Centralflorida，依此类推

可能的代码是：

johnhopkins.worksheets（“ sheet1”）。range（“ a1：g2”）。copy workbooks（“ macro.xslx”）。worksheets（“ sheet1”）。range（“ a1”）。insert shift：x1down

问题是我想复制并粘贴某些单元格，而不是将所有单元格都粘贴到单个工作簿中，而且我不确定如何从它们发送的内容中选择所需的单元格。 它们是实际单元格B5，b8，g13，i13，j13，k13，l13

我想将它们复制到工作簿上的g1到a1中。

那么另一个问题是工作簿的名称都不同，全部300个。 是否有一个宏可以仅复制我打开的工作簿，而不必每次都输入真实名称？

Answer 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

您可以在不知道名称的情况下遍历工作表，然后将结果粘贴到“结果”工作表中现在，您只需复制您描述的范围，然后粘贴到另一工作表中

玩得开心！