Excel VBA_Copy前2或3列，每隔3或4列插入一次

Sub CopyAndInsertColumns()
    Dim sourceRange As Range
    Dim insertRange As Range
    Dim columnCount As Integer
    Dim i As Integer

    '选择要复制的列，这里假设你要复制A列和B列
    Set sourceRange = Range("A:B")
    
    '插入列的起始位置，这里假设你要从第C列开始插入
    Set insertRange = Range("C:C")
    
    '计算要复制的列数
    columnCount = sourceRange.Columns.Count
    
    '循环复制和插入列
    For i = 1 To columnCount Step 3
        '复制列
        sourceRange.Columns(i).Copy
        
        '在插入位置插入列
        insertRange.Insert shift:=xlToRight
    Next i
End Sub