想要将多个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设置rowCopy行所在的范围，然后调用本地工作表的Range PasteSpecial函数。

您可能需要了解更多信息，并且上面的代码无法满足您的要求。 我希望您也为此付出一些努力。