将行从一个表复制到另一个表

Question

假设我在excel中有一个包含1000行和10列的表。 如何将此表中的每第7行复制到新表中，第一行将是第7行，第二行将是该表第14行，依此类推。

我以前从未在excel中做过这些事情。 怎么做？

Answer 1

如果你想坚持使用普通的Excel（没有VBA）。在表的末尾添加两列。第一个是行的计数，第二个是标记行计数是否可被7整除 - 我使用公式= IF（MOD（D4,7）= 0，“可被7整除”，“ - ”）。

然后在“标记每7个项目”列上过滤表格，然后复制并粘贴到新表格。

Answer 2

你需要一个宏。按alt + F11

基本上你运行像这样的宏

sub Copyer()
dim I as integer
Dim K as integer
I = 7
K = 1
while (Activesheet.Range("A" & I ).Value <> "")
 DestinationSheet.Range("A" & K ).Value = Activesheet.Range("A" & I).Value
K = K + 1
I = I + 7
Loop
End Sub

代码可能需要一些修饰，但这就是想法