Excel VBA：按指定起始字符分割A列数据并转置到另一工作表

嘿，我明白你现在的处境——已经搞定了单次转置加下移一行的操作，但还没法让程序自动遍历整个工作表1的A列，碰到以icode: 开头的单元格就自动重复整个转置流程对吧？别担心，咱们用VBA就能轻松实现这个自动化逻辑，下面给你一步步拆解：

核心思路 #

我们要做的是：

• 遍历工作表1的A列，记录每次转置区块的起始行
• 每当遇到icode: 开头的单元格时，就把从上一个起始行到当前行的前一行的数据，转置到工作表2的新行中
• 更新起始行到当前行的下一行，继续遍历，直到A列没有数据为止
• 别忘了处理最后一个区块（可能最后没有icode: 标记结尾）

完整VBA代码实现 #

打开Excel按Alt+F11进入VBA编辑器，插入一个新模块，粘贴下面的代码（记得根据你的实际工作表名称调整Sheet1和Sheet2）：

Sub AutoTransposeByICode()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim startRow As Long
    Dim currentRow As Long
    Dim targetRow As Long
    
    ' 定义源工作表和目标工作表，可根据实际名称修改
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    
    ' 初始化起始行和目标行
    startRow = 1
    targetRow = 1
    
    ' 遍历源工作表A列，直到空单元格
    currentRow = 1
    Do While wsSource.Cells(currentRow, 1).Value <> ""
        ' 检查当前单元格是否以"icode: "开头
        If Left(wsSource.Cells(currentRow, 1).Value, 6) = "icode: " Then
            ' 如果不是第一个区块，先转置上一个区块的数据
            If currentRow > startRow Then
                ' 复制源区块，转置粘贴到目标工作表
                wsSource.Range(wsSource.Cells(startRow, 1), wsSource.Cells(currentRow - 1, 1)).Copy
                wsTarget.Cells(targetRow, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
                
                ' 目标行下移一行，准备下一次转置
                targetRow = targetRow + 1
            End If
            ' 更新起始行为当前行的下一行，跳过"icode: "所在行
            startRow = currentRow + 1
        End If
        currentRow = currentRow + 1
    Loop
    
    ' 处理最后一个没有"icode: "结尾的区块
    If startRow < currentRow Then
        wsSource.Range(wsSource.Cells(startRow, 1), wsSource.Cells(currentRow - 1, 1)).Copy
        wsTarget.Cells(targetRow, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    End If
    
    ' 清除剪贴板，避免残留
    Application.CutCopyMode = False
    MsgBox "转置完成！", vbInformation
End Sub

代码关键部分解释 #

1. 起始行与目标行管理：startRow记录每个转置区块的第一行，targetRow记录工作表2中每次转置的起始列位置，确保每次转置结果不会覆盖之前的数据。
2. 判断标记单元格：用Left(单元格值, 6)来检查是否以icode: 开头（因为"icode: "刚好6个字符），如果匹配就触发转置。
3. 区块转置：用PasteSpecial Transpose:=True实现列转行的核心操作，这和你手动转置的逻辑一致。
4. 收尾处理：循环结束后专门处理最后一个区块，避免因为最后没有icode: 标记而漏掉数据。

使用注意事项 #

• 如果你的工作表名称不是Sheet1和Sheet2，一定要修改代码中Set wsSource和Set wsTarget这两行的工作表名称。
• 如果icode: 后面的代码你也需要包含到转置里，可以调整startRow = currentRow而不是currentRow + 1，这样就会把icode: 所在行也加入转置区块。
• 运行宏前建议先备份数据，避免意外情况。

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