我有300个单独的工作簿，这些工作簿的格式相同，并希望在每个工作簿中使用某些字段并写入一个工作簿，以便我可以将一个infile导入SAS并运行报告。我知道如何做一个宏来进行简单的复制和粘贴，但是你必须知道每本书的名称并打开它们，我有300个单独的工作簿，因为它们是从各个医院发送的，所以它们都有不同的名称。
示例：我的书简称为宏 1本医院书是johnhopkins，另一本是centralflorida等等。
可能的代码是：
johnhopkins.worksheets（ “工作表Sheet”）范围（ “A1：G2”）。复制 工作簿（“macro.xslx”）。工作表（“sheet1”）。range（“a1”）。insert shift：x1down
问题是我想要复制并粘贴某些单元格，而不是工作簿中的所有单元格都被提供给我的单个工作簿，我不知道如何从他们发送的内容中选择我想要的单元格。它们是实施单元B5，b8，g13，i13，j13，k13，l13
我希望将它们复制到我工作簿上的a1到g2。
然后另一个问题是工作簿的名称都不同，全部300个。是否有一个宏可以复制我打开的工作簿，而不是每次都输入实际名称？
答案 0 :(得分：0)
你可以从这样的事情开始：
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
您可以在不知道名称的情况下循环播放工作表，并将结果粘贴到“结果”表中 现在，您只需要复制您描述的范围，然后粘贴到另一张表
玩得开心！