写一个excel宏选中A1到A7共7个单元格复制循环黏贴到A8至A14、A15至A21以此类推总计黏贴766次

Sub CopyAndPaste() Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer

l = 1

For i = 1 To 766
    For j = 1 To 7
        Range("A" & j).Select
        Selection.Copy
        k = (i - 1) * 7 + j + 7
        Range("A" & k).Select
        ActiveSheet.Paste
    Next j
    
    l = l + 1
    
    If l Mod 50 = 0 Then
        Application.StatusBar = "正在复制和黏贴第 " & l & " 组数据..."
    End If
Next i

Application.StatusBar = False

End Sub

注：本宏会在状态栏显示当前复制和黏贴的进度。如需关闭此功能，可以删除或注释掉最后三行代码