想要将每张多个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的假设列表，您可以预先为字符串sFilename打开工作簿。然后将Range对象rowCopy设置为该行所在的范围，然后调用本地工作表范围PasteSpecial函数。

您可能需要了解更多信息而且上面的代码不会完成您要求的工作。我期待你付出一些努力来编程这个。