XCEL 一共7列，如何vba实现每隔一行插入5行，分别把第3列的值放到插入的第1行，第4列的值放到插入的第2行，第5列的值放到插入的第3行，第6列的值放到插入的第4行，第7列的值放到插入的第5行

你可以使用VBA宏在Excel中实现这个功能。以下是一个简单的例子，假设你从A列开始，你需要插入5行并按照指定顺序填充数据：

Sub InsertRowsAndCopyValues()
    Dim ws As Worksheet ' 工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你实际的工作表名
    Dim sourceRow As Long, newRow As Long, lastRow As Long
    Dim columnArray() As Variant ' 用于存储要复制的数据

    ' 获取源数据范围和最后一行索引
    lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
    sourceRow = lastRow + 1
    newRow = sourceRow + 4 ' 插入的位置从sourceRow+1开始

    ' 创建数组保存需要复制的列
    ReDim columnArray(1 To 5) As Variant
    columnArray(1) = ws.Cells(sourceRow, 3) ' 第3列
    columnArray(2) = ws.Cells(sourceRow, 4) ' 第4列
    columnArray(3) = ws.Cells(sourceRow, 5) ' 第5列
    columnArray(4) = ws.Cells(sourceRow, 6) ' 第6列
    columnArray(5) = ws.Cells(sourceRow, 7) ' 第7列

    ' 循环插入新行并将数据复制到对应位置
    For i = 1 To 5
        ws.Rows(newRow).Insert Shift:=xlDown ' 插入新行
        ws.Cells(newRow, i + 2).Value = columnArray(i) ' 将数据复制到新行对应列
        newRow = newRow + 1
    Next i
End Sub

把这个代码放在一个新的模块（如Module1）里，然后运行`InsertRowsAndCopyValues`函数即可。记得替换"Sheet1"为你实际的工作表名称。