Excel数据操作-将一行转换为多行

我正在尝试格式化数据，以便将其导入系统。我把数据放在一行中，跨越1200列

该行包含粗体的ID，然后是与ID关联的角色。我需要编写一个公式/宏，将每个ID推送到新行

当前：

我想要的是：

---

谢谢

这样就可以了。它忽略粗体/普通，但使用键的标识符纯粹是数值，而不是数字/单词组合

Dim col As Long, rw As Long

col = 1
rw = 2

With ActiveSheet.Rows(1)
    Do Until .Cells(col) = ""
        If IsNumeric(.Cells(col).Value) Then
            rw = rw + 1
            Cells(rw, 1) = .Cells(col).Value
        Else
            Cells(rw, Columns.Count).End(xlToLeft).Offset(0, 1) = .Cells(col).Value
        End If
        col = col + 1
    Loop
End With

---

您是否尝试过录制宏以开始自动化过程？