我想要一个宏从所有电子表格中取出第 4 行并放入一个新的电子表格中

Question

我对 Excelsheets 和宏的了解较少。通过查看文章，我了解了宏的用法并创建了它们。我有一组机构，每个机构都有一个包含一些细节的电子表格。每次将第一个四行复制并粘贴到新的电子表格中，然后放在共享点上，这很耗时。如果你能回答这个问题，它可以帮助公司节省很多时间。我想要一个宏来自动获取所有电子表格的前 4 行并放入新文档并上传到共享点。

Answer 1

我们将这 2 个工作簿称为 "From" 和 "Destination" 工作簿

打开“目标工作簿。然后打开"From"工作簿

然后按Alt+F11

然后插入 > 模块

然后复制并粘贴到 Module1

Sub copy()
Dim count As Integer
i = 0
Dim sheet As Worksheet
For Each sheet In Workbooks(1).Worksheets
i = i + 4
sheet.Rows("1:4").copy Workbooks(2).Sheets("Sheet1").Rows(i - 3 & ":" &  i)
Next
End Sub

然后转到“开发人员”选项卡并单击 "Macros"

点击"copy"然后点击运行

我想要一个宏从所有电子表格中取出第 4 行并放入一个新的电子表格中

I want a macro to take the 1st 4 rows from all spreadsheets and put into a new spreadsheet

excel

vba