如何在Excel中实现行转列？及A列每7行转E-K列的方法

• 粘贴转置法：
  1. 选中目标行数据，按Ctrl+C复制
  2. 定位到要放置结果的单元格，右键选择「粘贴选项」中的「转置」，或用Ctrl+Alt+V打开粘贴特殊窗口，勾选「转置」后确认
• 动态公式法：
  使用TRANSPOSE函数实现数据同步更新。例如原行数据在A1:C1，在E1输入=TRANSPOSE(A1:C1)：
  • Excel 365/2021版本直接回车即可自动溢出成列
  • 旧版本需按Ctrl+Shift+Enter作为数组公式执行

根据需求，提供三种实用方案：

• 公式填充法（推荐）：
  在E1单元格输入公式：
  =INDEX($A:$A,ROW(A1)*7-7+COLUMN(A1))
  向右拖动填充至K1，再选中E1:K1向下拖动，直到出现#REF!提示即完成所有数据转换
• Power Query批量处理法：
  1. 选中A列数据，点击「数据」选项卡→「从表格/区域」（无表头可先添加临时表头）
  2. 在编辑器中选择「转换」→「拆分列」→「按行数」，输入7并选择「拆分为列」
  3. 点击「关闭并上载」，将结果放置到E列起始位置
• VBA宏一次性处理：
  按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码，按F5运行：

  Sub ConvertRowsToColumns()
      Dim sourceRange As Range
      Dim targetRange As Range
      Dim i As Long, j As Long
      Set sourceRange = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
      Set targetRange = Range("E1")
      
      For i = 1 To sourceRange.Rows.Count Step 7
          For j = 0 To 6
              targetRange.Offset((i - 1) / 7, j).Value = sourceRange.Cells(i + j, 1).Value
          Next j
      Next i
  End Sub
  

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