Excel数据操作-一行变成多行

Question

我正在尝试格式化数据，以便可以将其导入系统。我将数据排成1行，跨约1200列。

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

当前： 1

我想要什么： 2

谢谢！

Answer 1

这可以做到。它会忽略粗体/普通字符，但会使用键的标识符作为纯数字值，而不是数字/单词组合。.

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