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
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024