如何将数据从一列分离到多列？

您是否真的在使用 Excel-2007，也因为您也标记了 Excel-Formula，因此这里有一种使用专用于 MS365 用户的功能的方法：

• 细胞中使用的配方C1

=LET(
     a,A1:A13,
     b,SCAN("",a,LAMBDA(x,y,IF(LEFT(y)=":",x,y))),
     r,ROWS(UNIQUE(FILTER(TEXTBEFORE(a,":",2),LEFT(a)=":"))),
     ub,UNIQUE(b),
     DROP(IFNA(REDUCE("",ub,LAMBDA(m,n,
          VSTACK(m,IFERROR(HSTACK(n,WRAPROWS(
          DROP(FILTER(a,n=b,""),1),r)),n)))),""),1))

请测试下一个 VBA 解决方案。它假定要处理的范围存在于 A：A 列中，并且从“F1”开始返回。可以很容易地调整代码以返回任何位置（在工作表上、在不同的工作表上、在不同的工作簿上）。

它使用数组并主要在内存中工作，立即删除处理后的结果，在代码末尾，即使对于大范围，它也应该非常快。它与任何Excel版本兼容：

Sub SplitDataPerColums()
  Dim sh As Worksheet, lastR As Long, arr, arrFin, i As Long, j As Long, k As Long, boolOK As Boolean
  
  Set sh = ActiveSheet ' please, use here the necessary sheet
  lastR = sh.Range("A" & sh.rows.count).End(xlUp).row
  
  arr = sh.Range("A1:A" & lastR).Value2  'place the range in an array for faster processing
  ReDim arrFin(1 To UBound(arr), 1 To 3) 'maximum possible number of rows
  k = 1 'first row of the final array
  
  For i = 1 To UBound(arr)
    If Len(arr(i, 1)) = 8 And left(arr(i, 1), 3) = "ACC" Then
        boolOK = False 'to increment the row variable (k) for the case of an account without values
        arrFin(k, 1) = arr(i, 1): j = 1
        Do While InStr(arr(i + j, 1), ":") > 0
            boolOK = True
            arrFin(k, 2) = arr(i + j, 1)
            arrFin(k, 3) = arr(i + j + 1, 1)
            k = k + 1
            j = j + 2: If i + j > UBound(arr) Then Exit Do
        Loop
        If Not boolOK Then k = k + 1 'for the case of accounts without following values
        i = i + j - 1
    End If
  Next i
  Range("F1").Resize(k - 1, 3).Value2 = arrFin
  
End Sub