A列的数据提取3个指定数据

朝露孤烟

如果喜欢用公式，也可以试试这个。=TEXTSPLIT(RIGHT(CONCAT(MIDB(LEFT(A1,FIND("Kg",A1)-1),ROW($1:$99),1)),LEN(CONCAT(MIDB(LEFT(A1,FIND("Kg",A1)-1),ROW($1:$99),1)))-FIND(":",CONCAT(MIDB(LEFT(A1,FIND("Kg",A1)-1),ROW($1:$99),1)))),":",)长长的火车。

经过优化后，公式是这样。=LET(a,LEFT(A1,FIND("Kg",A1)-1),b,RIGHT(a,LEN(A1)-LEN(a)-5),c,CONCAT(MIDB(b,ROW($1:$99),1)),TEXTSPLIT(c,":",,1))

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, cr, i&
   
    ar = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
    ReDim br(1 To UBound(ar), 1 To 3)
    For i = 1 To UBound(ar)
        cr = Split(ar(i, 1))
        br(i, 1) = cr(6): br(i, 2) = cr(8): br(i, 3) = cr(11)
    Next i
   
    [G1].Resize(UBound(br), UBound(br, 2)) = br
    Beep
End Sub

gwjkkkkk

参与 一下。。。