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

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

我以前从未在excel中做过这种事情。

---

如何操作？

您需要一个宏。按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

sub-Copyer（）
作为整数的dim I
将K变为整数
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
环
端接头

---

代码可能需要一些修饰，但这正是您需要宏的想法。按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

sub-Copyer（）
作为整数的dim I
将K变为整数
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
环
端接头

---

代码可能需要一些修饰，但这正是您需要宏的想法。按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

sub-Copyer（）
作为整数的dim I
将K变为整数
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
环
端接头

---

代码可能需要一些修饰，但这正是您需要宏的想法。按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

sub-Copyer（）
作为整数的dim I
将K变为整数
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
环
端接头

---

代码可能需要一些修饰，但如果您想坚持使用纯Excel（无VBA），这就是想法。在表的末尾添加两列。第一个是行的计数，第二个是当行计数可被7整除时的标记-我使用公式=if（MOD（D4,7）=0，“可被7整除”，“-”）

---

然后在“每第7项标记一次”列中筛选表格，然后复制并粘贴到新表格。

如果您想使用纯Excel（无VBA）。在表的末尾添加两列。第一个是行的计数，第二个是当行计数可被7整除时的标记-我使用公式=if（MOD（D4,7）=0，“可被7整除”，“-”）

---

然后在“每第7项标记一次”列中筛选表格，然后复制并粘贴到新表格。

如果您想使用纯Excel（无VBA）。在表的末尾添加两列。第一个是行的计数，第二个是当行计数可被7整除时的标记-我使用公式=if（MOD（D4,7）=0，“可被7整除”，“-”）

---

然后在“每第7项标记一次”列中筛选表格，然后复制并粘贴到新表格。

如果您想使用纯Excel（无VBA）。在表的末尾添加两列。第一个是行的计数，第二个是当行计数可被7整除时的标记-我使用公式=if（MOD（D4,7）=0，“可被7整除”，“-”）

然后在“每第7项标记一次”列中筛选表格，然后复制并粘贴到新表格