一列不同行包含不同类别的信息，怎么拆分为不同列，谢谢！

hbzql

= Table.FromColumns(List.Transform({1..5},each List.Skip(List.Alternate(源[信息],4,1,_),_-1)))

好好学习不要懒

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    a = Table.Split(源,5),
    b = Table.FromList(a,Table.ToList)
in
    b

dl8121032

Sub aa()
  For i = 2 To 76 Step 5
   s = s + 1
   Cells(s, 2) = Cells(i, 1).Value
   Cells(s, 3) = Cells(i + 1, 1).Value
   Cells(s, 4) = Cells(i + 2, 1).Value
   Cells(s, 5) = Cells(i + 3, 1).Value
   Cells(s, 6) = Cells(i + 4, 1).Value
   Next
End Sub

dl8121032

Sub aa()
   For i = 4 To 6
   arr = Split(Cells(i, 4).Value, Chr(10))
      Cells(i, 5) = Mid(arr(0), 3, 20)
      Cells(i, 6) = Mid(arr(1), 3, 20)
      Cells(i, 7) = Mid(arr(2), 3, 20)
      Cells(i, 8) = Mid(arr(3), 3, 20)
     Next
   
End Sub

minchar

=Table.Combine(List.Transform(Table.Split(源,5),Table.Transpose))

尘土1

1. = Table.Combine(List.Transform(Table.Split(源,5),each Table.Transpose(_)))

复制代码