用于在同一工作表中剪切和粘贴特定百分比行的宏

Question

我正在尝试创建一个执行行计数的宏，将前10％和最后10％行（总计数）剪切并粘贴到同一工作表中的不同列。请帮我宏。

修改：

到目前为止，我已尝试过以下代码：

Sub top10() 
Dim i As Variant 
Dim p As Integer 
Dim pp As Long 
Dim endrow As Long 
endrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row 
pp = Round(endrow * 90 / 100, [1]) 
p = Round(endrow * 10 / 100, [1]) 
For i = 1 To p Range("A" & i).Select Selection.Cut Range("E" & i).Select ActiveSheet.Paste Next 
End Sub

上述代码的问题是：如果我有大约10k行，则需要太长时间。有没有更好的方法，我可以实现更快的运行