如何高效将数据按每4列转置为行？VBA及宏尝试遇阻

一、Excel公式法（无需代码，适合小数据量） #

假设源数据从A1单元格开始，想在F1开始输出结果：

• 在F1输入公式：=INDEX($A:$D,INT((ROW()-1)*4)+COLUMN(A1),MOD((ROW()-1)*4+COLUMN(A1)-1,4)+1)
• 按住鼠标向右拉4个单元格，然后选中这4个单元格一起向下拉，直到出现空值就停。
  公式逻辑：通过ROW和COLUMN计算每组的位置，用INDEX精准提取对应单元格内容，每4个数据自动换行。

二、Power Query法（适合大数据量，批量处理更省心） #

1. 选中你的源数据区域，点击Excel顶部「数据」选项卡 → 「从表格/区域」（如果数据有表头，记得勾选「我的表格有标题」）
2. 进入Power Query编辑器后，点击「转换」→ 「转置」，把列转成行
3. 接着点击「转换」→ 「拆分列」→ 「按位置拆分」，选择「每隔4列拆分」，然后选「拆分为行」
4. 再点一次「转换」→ 「转置」，最后点击「关闭并上载」，结果就会导入到新工作表里。

三、改进版VBA代码（自定义灵活度高） #

如果还是想用VBA，试试这段代码，能自动按每4列一组转成多行：

Sub TransposeEvery4Columns()
    Dim srcRange As Range, destRange As Range
    Dim rowCount As Integer, colCount As Integer
    Dim i As Integer, j As Integer
    
    '选择源数据区域和输出起始位置
    Set srcRange = Application.InputBox("选择要处理的源数据区域", Type:=8)
    Set destRange = Application.InputBox("选择结果输出的起始单元格", Type:=8)
    
    rowCount = srcRange.Rows.Count
    colCount = srcRange.Columns.Count
    
    '按每4列一组循环处理
    For i = 1 To colCount Step 4
        '遍历源数据的每一行
        For j = 1 To rowCount
            '把4列数据依次写入目标行
            destRange.Value = srcRange.Cells(j, i).Value
            destRange.Offset(0, 1).Value = srcRange.Cells(j, i + 1).Value
            destRange.Offset(0, 2).Value = srcRange.Cells(j, i + 2).Value
            destRange.Offset(0, 3).Value = srcRange.Cells(j, i + 3).Value
            '目标行下移一行
            Set destRange = destRange.Offset(1, 0)
        Next j
    Next i
End Sub

使用步骤：按Alt+F11打开VBA编辑器，右键点击左侧工程窗口，插入「模块」，把代码粘贴进去，按F5执行宏，跟着提示选源区域和输出起始单元格就行。

内容的提问来源于stack exchange，提问作者Mena