excel - 想要将多个 Excel 文件的每张表的第一行复制到另一个 Excel 文件

Question

有 27 个 Excel 文件（工作簿），每个 Excel 文件将有 5 个选项卡（工作表）或 2 个。

我想将每个文件（包括它们的工作表在内的 27 个工作簿）的每个工作表第一行复制到另一个新的 Excel 工作表（在工作表上组合）以检查每个文件是否具有相同的标题。

Answer 1

这里有一些你可能需要的东西；

Dim wb As Workbook
Dim rowCopy As Range
For Each sFilename In listOfFiles
    Set wb = Workbooks.Open(sFilename)
    Set rowCopy = wb.Range([rangewheretocopy])

    rowCopy.Copy

    shWhereYouCopyItAll.Range([targetrange]).PasteSpecial
Next

假设listOfFiles您可以为字符串 foreachsFilename以打开工作簿的文件的假设列表。然后将 Range 对象设置rowCopy为该行所在的范围，然后调用本地工作表 RangePasteSpecial函数。

您可能需要了解更多信息，而以上代码将无法完成您要求的工作。我希望你也为编程付出一些努力。