excel函数或宏将列拆分为行

Question

我想将列拆分为新列，如下所示：

http://i.stack.imgur.com/azZM1.png

正如你所看到的那样，只要有一个全文本单元就会发生分裂，而在这些单元格中，我并不总是有相同数量的单元格。 我可以在函数或宏中执行此操作吗？

Answer 1

此代码将获取您的单个列，并将其分解为每个文本标题中的多个列。

假设：

• 每个非标题单元格的左侧字符是一个数字。

  lastRow = Range("A" & Rows.Count).End(xlUp).Row
  frst = 1
  j = 2
  
  For i = 2 To lastRow + 1
      If Not IsNumeric(Left(Cells(i, 1).Value, 1)) Then
          Range(Cells(frst, 1), Cells(i - 1, 1)).Copy
          Range(Cells(1, j), Cells(i - frst - 1, j)).PasteSpecial
  
          frst = i
          j = j + 1
      End If
  Next i