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

要在Excel VBA中实现这个功能，你可以创建一个宏，按照以下步骤编写：

1. 打开VBA编辑器（按Alt + F11快捷键）并创建一个新的模块。

2. 编写Sub过程，例如命名为`InsertData()`，如下所示：

Sub InsertData()
    Dim rng As Range
    Dim currentRow As Long
    Dim newRowCounter As Long
    
    ' 设置范围，假设数据从A1开始
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
    
    ' 获取总行数
    Dim totalRows As Long
    totalRows = rng.Rows.Count
    
    ' 遍历每行
    For currentRow = 1 To totalRows Step 1
        newRowCounter = 0
        
        ' 插入新行，并复制数据
        If currentRow Mod 6 <> 0 Then
            rng.Cells(currentRow, 1).Offset(0, newRowCounter).EntireRow.Insert Shift:=xlDown
            
            ' 复制第3、4、5、6、7列到相应位置
            rng.Cells(currentRow, 3).Copy Destination:=rng.Cells(currentRow, newRowCounter + 3)
            newRowCounter = newRowCounter + 1
            rng.Cells(currentRow, 4).Copy Destination:=rng.Cells(currentRow, newRowCounter + 3)
            newRowCounter = newRowCounter + 1
            rng.Cells(currentRow, 5).Copy Destination:=rng.Cells(currentRow, newRowCounter + 3)
            newRowCounter = newRowCounter + 1
            rng.Cells(currentRow, 6).Copy Destination:=rng.Cells(currentRow, newRowCounter + 3)
            newRowCounter = newRowCounter + 1
            rng.Cells(currentRow, 7).Copy Destination:=rng.Cells(currentRow, newRowCounter + 3)
            
            ' 清除原单元格的值
            rng.Cells(currentRow, newRowCounter + 3).ClearContents
        End If
    Next currentRow
    
End Sub

3. 确保替换"Sheet1"为你实际的工作表名，并将上述代码粘贴到VBA编辑器中。

4. 运行`InsertData()`函数即可看到效果。