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

Question

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

Answer 1

将2个工作簿称为“From”和“Destination”工作簿

打开“目标工作簿”。 然后打开“从”工作簿

然后按Alt + F11

然后插入＆gt;模块

然后将其复制并粘贴到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

然后转到Developer Tab并单击“Macros”

点击“复制”，然后点击“运行”