Giúp hàm lọc bỏ các kí tự trong chuỗi số

[lala_qn]

giúp dùm em hàm lọc bỏ các kí tự trong chuổi số
trong file vd em dùng hàm này =SUBSTITUTE(A2,".","")*1 nhưng ko lọc hết, nhờ a/c giúp dùm em, thanks !

 

[haonlh]

giúp dùm em hàm lọc bỏ các kí tự trong chuổi số
trong file vd em dùng hàm này =SUBSTITUTE(A2,".","")*1 nhưng ko lọc hết, nhờ a/c giúp dùm em, thanks !

Thay dấu . thành /
=SUBSTITUTE(A2,"/","")*1

 

[lala_qn]

em nhập thử vào trong hàm ko đc anh, em muốn dùm 1 hàm loại bỏ tất cả luôn anh

 

[hoangexcell]

Thay dấu . thành /
=SUBSTITUTE(A2,"/","")*1

Trả lời vậy là sao hả? có thử kết quả chưa mà cứ như là ngon lành vậy?

 

[mhung12005]

giúp dùm em hàm lọc bỏ các kí tự trong chuổi số
trong file vd em dùng hàm này =SUBSTITUTE(A2,".","")*1 nhưng ko lọc hết, nhờ a/c giúp dùm em, thanks !

Bạn dùng thử hàm tự tạo này xem sao.

 

[Quang_Hải]

Nếu nói về tách lấy số thì code này không chê vào đâu được

Function TachSo(cell As Range) As Double
  With CreateObject("VBScript.RegExp")
      .Global = True
      .Pattern = "[^0-9]"
      TachSo = .Replace(cell, "")
  End With
End Function

 

[mhung12005]

Nếu nói về tách lấy số thì code này không chê vào đâu được

Function TachSo(cell As Range) As Double
  With CreateObject("VBScript.RegExp")
      .Global = True
      .Pattern = "[^0-9]"
      TachSo = .Replace(cell, "")
  End With
End Function

Cái Object("VBScript.RegExp") này em thấy mọi người nói rất nhiều và ai cũng khen hay. Nhưng em chưa ... học đến

Mà anh Hải cho em hỏi chút:

Cái này: Function TachSo(cell As Range) As Double em cứ nghĩ as Long chứ nhỉ anh ?

 

[Quang_Hải]

Cái Object("VBScript.RegExp") này em thấy mọi người nói rất nhiều và ai cũng khen hay. Nhưng em chưa ... học đến

Mà anh Hải cho em hỏi chút:

Cái này: Function TachSo(cell As Range) As Double em cứ nghĩ as Long chứ nhỉ anh ?

Ai biết đâu. Cứ cho thành Long rồi thử cho chuỗi 123456789123 coi nó ra cái gì hén

 

[lala_qn]

Bạn dùng thử hàm tự tạo này xem sao.

a ơi e ko rành dùng macro, viết dùm e cái hàm a nhé, thanks anh !

 

[Hoàng Trọng Nghĩa]

a ơi e ko rành dùng macro, viết dùm e cái hàm a nhé, thanks anh !

Tôi thấy yêu cầu của bạn có 4 dạng ký tự cần thay thế ([.], [,], [/], [ ]), vì thế tôi tạm dùng hàm sau cho bạn:

=[COLOR=#4b0082]SUBSTITUTE([/COLOR][COLOR=#008000]SUBSTITUTE([/COLOR][COLOR=#0000ff]SUBSTITUTE([/COLOR][COLOR=#ff0000]SUBSTITUTE(A2, "/","")[/COLOR][COLOR=#0000ff], ".","")[/COLOR], [COLOR=#008000]",","")[/COLOR][COLOR=#4b0082], " ","")[/COLOR]*1

 

[Hoàng Trọng Nghĩa]

Cái Object("VBScript.RegExp") này em thấy mọi người nói rất nhiều và ai cũng khen hay. Nhưng em chưa ... học đến

Mà anh Hải cho em hỏi chút:

Cái này: Function TachSo(cell As Range) As Double em cứ nghĩ as Long chứ nhỉ anh ?

Tôi có một kinh nghiệm là khi dùng hàm nào đó trên Sheet, tôi luôn cho kết quả của chúng là dạng Variant!

Lý do đơn giản là một hàm có thể có phát sinh lỗi, chẳng hạn một số chia cho 0 thì mã lỗi sẽ là #DIV/0! còn không nó trả về dạng số.

 

[lala_qn]

Tôi thấy yêu cầu của bạn có 4 dạng ký tự cần thay thế ([.], [,], [/], [ ]), vì thế tôi tạm dùng hàm sau cho bạn:

=[COLOR=#4b0082]SUBSTITUTE([/COLOR][COLOR=#008000]SUBSTITUTE([/COLOR][COLOR=#0000ff]SUBSTITUTE([/COLOR][COLOR=#ff0000]SUBSTITUTE(A2, "/","")[/COLOR][COLOR=#0000ff], ".","")[/COLOR], [COLOR=#008000]",","")[/COLOR][COLOR=#4b0082], " ","")[/COLOR]*1

hàm này ổn rùi a, cảm ơn a nhiều nhé