如何用Excel公式或VBA实现不规则行转列并下移一行？

方法一：用Excel公式实现 #

假设你的原始数据A列是唯一标识（比如姓名/编号），B到Z列是对应的属性列，要在新区域生成目标格式：

1. 生成标识列
   在空白列（比如F2）输入公式：

   =INDEX($A:$A,INT((ROW()-2)/COUNTA($B$1:$Z$1))+1)
   

   下拉填充，直到出现错误值就停。公式里的$B$1:$Z$1要改成你实际的属性表头范围。

2. 生成属性名列
   旁边G2单元格输入：

   =INDEX($B$1:$Z$1,MOD(ROW()-2,COUNTA($B$1:$Z$1))+1)
   

   同样下拉填充。

3. 生成属性值列
   H2单元格输入：

   =INDEX($B:$Z,INT((ROW()-2)/COUNTA($B$1:$Z$1))+1,MOD(ROW()-2,COUNTA($B$1:$Z$1))+1)
   

   下拉填充即可得到目标格式。

方法二：用VBA脚本批量处理 #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub ConvertToColumnFormat()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim srcLastRow As Long
    Dim srcLastCol As Long
    Dim destRow As Long
    Dim i As Long, j As Long
    
    ' 替换成你的源表和目标表名称
    Set srcSheet = ThisWorkbook.Worksheets("Sheet1")
    Set destSheet = ThisWorkbook.Worksheets("Sheet2")
    destRow = 2 ' 目标数据从第2行开始
    
    ' 获取源数据的边界
    srcLastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
    srcLastCol = srcSheet.Cells(1, srcSheet.Columns.Count).End(xlToLeft).Column
    
    ' 写目标表头
    destSheet.Cells(1, 1) = "标识"
    destSheet.Cells(1, 2) = "属性名"
    destSheet.Cells(1, 3) = "属性值"
    
    ' 遍历转换
    For i = 2 To srcLastRow
        For j = 2 To srcLastCol
            destSheet.Cells(destRow, 1) = srcSheet.Cells(i, 1)
            destSheet.Cells(destRow, 2) = srcSheet.Cells(1, j)
            destSheet.Cells(destRow, 3) = srcSheet.Cells(i, j)
            destRow = destRow + 1
        Next j
    Next i
    
    MsgBox "转换完成！", vbInformation
End Sub

使用提示： #

• 先确认目标工作表（比如Sheet2）已存在，或者自己新建一个
• 把代码里的Sheet1和Sheet2改成你实际的工作表名称
• 运行脚本后，源数据会自动转成纵向格式写到目标表，不会覆盖原有数据

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