怎样从Excel中提取指定行（有规律）的数据？

Question

比如说在Sheet1中，提取第10行的所有内容和数据后，再提取第20行的所有内容和数据，再提取第30行的所有内容和数据。。。。。。，以此类推提取10n行的数据，共有500行，最后存放到Sheet2中，多多帮忙哈，最好用宏，VB的程序。

Answer 1

set s1= sheets(1)
set s2= sheets(2)
for i = 10 to s1.[a65536].end(3).row step 10
k = k+1
s1.rows(i & ":" & i).copy s2.rows(k & ":" & k)
next

Answer 2

Sub test()
For i = 1 To 50
temp = Sheet1.Range(Cells(i * 10, 1), Cells(i * 10, 256)).Value
Sheet2.Range(Cells(i, 1), Cells(i, 256)) = temp
Next i
End Sub本回答被提问者采纳