Excel VBA原地转置（Transpose in place）代码修改求助：适配含A列数据

我有一份需要拆分至不同列的原始数据：

• 原始数据：每行包含A列标识、B列主内容，以及后续多列的附属内容（例如行2为A1、B1、C1、D1，行3为A2、B2、C2）
• 期望输出：每一条附属内容单独占一行，保留对应行的A列标识，B列替换为该附属内容；原行仅保留A列和最初的B列内容（例如输出后行2为A1、B1，行3为A1、C1，行4为A1、D1，行5为A2、B2，行6为A2、C2）

现有一段Excel VBA代码可在无A列时完成该任务，现需修改代码以适配包含A列的场景，原代码如下：

Sub transpose_in_place()
    Dim rw As Long, cl As Long
    With ActiveSheet
        For rw = .Cells(rows.Count, 1).End(xlUp).Row To 2 Step -1
            For cl = .Cells(rw, Columns.Count).End(xlToLeft).Column To 3 Step -1
                If Not IsEmpty(.Cells(rw, cl)) Then
                    .rows(rw + 1).Insert
                    .Cells(rw + 1, 1) = .Cells(rw, 1).Value2
                    .Cells(rw + 1, 2) = .Cells(rw, cl).Value2
                    .Cells(rw, cl).clear
                End If
            Next cl
        Next rw
    End With
End Sub

原代码核心逻辑已经适配带A列的场景，仅微调命名和注释使其更清晰，修改后的代码如下：

Sub transpose_with_column_A()
    Dim rw As Long, cl As Long
    With ActiveSheet
        ' 从最后一行向上遍历，避免插入新行影响未处理的行
        For rw = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
            ' 从当前行最右侧非空列，遍历到C列（A=标识列，B=原始主内容列）
            For cl = .Cells(rw, Columns.Count).End(xlToLeft).Column To 3 Step -1
                If Not IsEmpty(.Cells(rw, cl)) Then
                    ' 插入新行存放拆分出的内容
                    .Rows(rw + 1).Insert
                    ' 新行继承原行的A列标识
                    .Cells(rw + 1, 1).Value2 = .Cells(rw, 1).Value2
                    ' 新行的B列填入当前拆分的附属内容
                    .Cells(rw + 1, 2).Value2 = .Cells(rw, cl).Value2
                    ' 清空原位置的附属内容（若需保留原列内容可删除此行）
                    .Cells(rw, cl).Clear
                End If
            Next cl
        Next rw
    End With
End Sub

• 遍历逻辑：从最后一行向上处理，确保插入新行不会打乱未处理行的索引，避免遗漏数据。
• 列对应：新行的A列直接继承原行的标识值，B列填充拆分出的附属内容，完美匹配带A列的场景。
• 可选调整：如果不需要清空原列的附属内容，删除.Cells(rw, cl).Clear即可。

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