基于指定条件实现Excel行转列的VBA宏开发需求

以下是针对需求编写的VBA宏，可自动识别A列中以"6"开头的项目标识，根据每个项目的实际行数动态转置数据到新工作表：

VBA代码实现 #

Sub TransposeProjectsByID()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, projectStartRow As Long, projectEndRow As Long
    Dim targetCol As Integer, i As Long
    
    ' 指定源数据所在工作表（可根据实际修改名称）
    Set wsSource = ActiveSheet
    ' 创建新工作表用于存放转置结果
    Set wsTarget = ThisWorkbook.Worksheets.Add
    wsTarget.Name = "项目转置结果"
    
    ' 获取源表最后一行行号
    lastRow = wsSource.Cells(Rows.Count, "A").End(xlUp).Row
    projectStartRow = 1
    targetCol = 1
    
    ' 遍历行，划分每个项目的范围
    For i = 1 To lastRow + 1
        ' 触发条件：到达表尾，或遇到新的以6开头的项目ID
        If (i > lastRow) Or (Left(wsSource.Cells(i, "A").Value, 1) = "6" And i > projectStartRow) Then
            projectEndRow = i - 1
            
            ' 复制当前项目的有效数据并转置粘贴到目标列
            wsSource.Range(wsSource.Cells(projectStartRow, 1), wsSource.Cells(projectEndRow, Columns.Count).End(xlToLeft)).Copy
            wsTarget.Cells(1, targetCol).PasteSpecial Paste:=xlPasteAll, Transpose:=True
            
            ' 更新下一个项目的起始行和目标列
            projectStartRow = i
            targetCol = targetCol + 1
        End If
    Next i
    
    ' 清理剪贴板
    Application.CutCopyMode = False
    MsgBox "项目数据转置完成！"
End Sub

代码核心逻辑说明 #

• 动态识别项目范围：通过遍历A列，以"6"开头的单元格作为新项目的起始标记，自动计算上一个项目的结束行，彻底解决项目行数不固定的问题。
• 自适应数据范围：每个项目只复制有数据的列，避免空列干扰转置结果。
• 自动输出到新表：代码会自动创建名为项目转置结果的工作表，无需手动新建。

使用步骤 #

1. 将CSV文件转换为Excel格式并打开。
2. 按下Alt+F11打开VBA编辑器，右键点击当前工作簿 → 插入 → 模块。
3. 将上述代码粘贴到模块中，回到Excel界面。
4. 按下Alt+F8选择TransposeProjectsByID宏并运行。

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