Xin chỉ dùm Excel tách số ra khỏi chuối dùng hàm gì

Em chưa biết khi tách số ra khỏi chuối thì Excel phân biệt chúng dựa vào hàm nào, xin hướng dẫn dùm em bài toán tách số khỏi chuối nếu phải làm bằng công thức thì viết ra
Em xin cảm ơn.

Em thấy có 1 bài của bác giúp thành viên nào đó (em đã tải về) tách bằng công thức này

=IF(COUNT(Temp)=0;"";SUMPRODUCT((1*MID($A10;SMALL(Temp;ROW(INDIRECT("1:"&COUNT(Temp))));1))*(10^(COUNT(Temp)-ROW(INDIRECT("1:"&COUNT(Temp)))))))

với name

Temp=IF(ISNUMBER(1*MID(Sheet1!$A10;ROW(INDIRECT("1:"&LEN(Sheet1!$A10)));1));ROW(INDIRECT("1:"&LEN(Sheet1!$A10)));"")

Mình ví dụ 1 ô A2 nhé

Sub tach_so()
Dim chuoi, tam, kq
chuoi =
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "d+"
Set tam = .Execute(chuoi)
For Each kq In tam
MsgBox kq
Next
End With
End Sub

Bạn xem thử cách dùng công thức excel trong file đính kèm này nhé.
Mình viết đầy đủ và cho xuất ra kết quả luôn đấy. Tuy nhiên cũng hơi phức tạp vì kết hợp nhiều kiến thức cơ bản.

Sub tach_so()
Dim tam, kq(), dl(), i As Long, n As Byte, j As Byte
dl = Range([A2], [A65536].End(3)).Value
For i = 1 To UBound(dl)
   With CreateObject("vbscript.regexp")
      .Global = True
      .Pattern = "d+"
      Set tam = .Execute(dl(i, 1))
      n = IIf(tam.Count > n, tam.Count, n)
      ReDim Preserve kq(1 To UBound(dl), 1 To n)
       For j = 0 To tam.Count - 1
         kq(i, j + 1) = tam(j)
       Next
   End With
Next
[B2].Resize(i - 1, n) = kq
End Sub]

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học