用vba在Excel中将每3列转换为多行

Sub ConvertColumnsToRows()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim rowCount As Integer
    Dim columnCount As Integer
    Dim i As Integer
    Dim j As Integer
    
    ' 设置源数据范围，这里假设源数据从A1开始
    Set sourceRange = Range("A1").CurrentRegion
    
    ' 获取源数据的行数和列数
    rowCount = sourceRange.Rows.Count
    columnCount = sourceRange.Columns.Count
    
    ' 设置目标数据的起始位置，这里假设目标数据从A10开始
    Set targetRange = Range("A10")
    
    ' 循环遍历源数据的每一列
    For i = 1 To columnCount Step 3
        ' 循环遍历源数据的每一行
        For j = 1 To rowCount
            ' 将每3列的数据转换为多行
            targetRange.Value = sourceRange.Cells(j, i).Value
            targetRange.Offset(1, 0).Value = sourceRange.Cells(j, i + 1).Value
            targetRange.Offset(2, 0).Value = sourceRange.Cells(j, i + 2).Value
            ' 更新目标数据的位置
            Set targetRange = targetRange.Offset(0, 1)
        Next j
        ' 更新目标数据的位置
        Set targetRange = targetRange.Offset(3, -columnCount)
    Next i
End Sub