Excel中将单行多列数据转换为多行17列矩阵的方法

以下是三种实用的解决方法，可将1行11000列的数据转换为每行17列的矩阵：

方法一：Excel公式法（无需额外工具） #

假设原始数据在Excel第1行（从A1开始），在空白单元格（比如A3）输入以下公式：

=INDEX($1:$1,1,(ROW(A1)-1)*17+COLUMN(A1))

• 输入完成后，向右填充17列，再向下填充直到单元格出现#REF!或空值，即可得到目标矩阵。
• 逻辑说明：(ROW(A1)-1)*17计算当前行对应的原始数据起始偏移量，COLUMN(A1)定位当前列在组内的位置，INDEX函数从第1行提取对应值。

方法二：Power Query法（推荐，适合大数据量） #

利用Excel自带的Power Query高效处理：

1. 选中原始数据所在行，点击「数据」选项卡→「从表格/区域」，取消勾选「我的表格有标题」（无标题时），进入Power Query编辑器。
2. 点击「转换」→「转置」，将单行多列数据转为单列多行（11000行1列）。
3. 点击「转换」→「拆分列」→「按行数」，输入17并选择「拆分为列」，数据会被分成每组17行的多列。
4. 再次点击「转换」→「转置」，得到n行17列的矩阵，最后点击「关闭并上载」导出结果到Excel。

方法三：VBA宏法（适合有编程基础的用户） #

通过宏一键完成转换，代码如下：

Sub ConvertToMatrix()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim sourceData As Variant
    Dim targetData As Variant
    Dim i As Long, targetRow As Long, targetCol As Long
    
    ' 源数据范围：Sheet1的第1行所有非空单元格
    Set sourceRange = ThisWorkbook.Sheets("Sheet1").Rows(1).SpecialCells(xlCellTypeConstants)
    sourceData = sourceRange.Value
    
    ' 定义目标列数并计算行数
    Const colCount = 17
    Dim rowCount As Long
    rowCount = Application.WorksheetFunction.Ceiling(UBound(sourceData, 2), colCount) / colCount
    
    ' 初始化目标数组
    ReDim targetData(1 To rowCount, 1 To colCount)
    
    ' 填充目标数组
    For i = 1 To UBound(sourceData, 2)
        targetRow = ((i - 1) \ colCount) + 1
        targetCol = ((i - 1) Mod colCount) + 1
        targetData(targetRow, targetCol) = sourceData(1, i)
    Next i
    
    ' 将结果输出到A3开始的区域
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A3").Resize(rowCount, colCount)
    targetRange.Value = targetData
End Sub

• 使用步骤：按Alt+F11打开VBA编辑器，插入模块粘贴代码，修改Sheet1为你的工作表名，按F5运行宏即可。

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