程序如下：
Sub 宏()
Dim i As Integer, j As Integer, k As Integer
For i = 4 To 41
k = Cells(Rows.Count, i).End(xlUp).Row
Range(Cells(k - 4, i), Cells(k, i)).Select
Selection.Copy
Cells(1, i).Select
ActiveSheet.Paste
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024