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
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 !
Function TachSo(cell As Range) As Double
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[^0-9]"
TachSo = .Replace(cell, "")
End With
End Function
Nếu nói về tách lấy số thì code này không chê vào đâu được
PHP: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 ?
a ơi e ko rành dùng macro, viết dùm e cái hàm a nhé, thanks anh !Bạn dùng thử hàm tự tạo này xem sao.
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:a ơi e ko rành dùng macro, viết dùm e cái hàm a nhé, thanks anh !
=[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
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 ?
hàm này ổn rùi a, cảm ơn a nhiều nhé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:
Mã:=[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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2