anh Gà thử hàm VBA sau sẽ thấy mê luôn. Tách chuỗi gồm Text và Number lồng xen kẽ vào nhau> Text riêng, Number riêng, Cú pháp =SplitNumText(chuỗi,0 nếu muốn tách text hoặc 1 nếu muốn tách Number). Riêng trường hợp chuỗi tách có dạng TextNumber hoặc NumberText thì bao phía trước hàm TRIM để khử dấu khoảng cách. thế là xong Code: Function SplitNumText(str As String, op As Boolean) num = "" txt = "" For i = 1 To Len(str) If IsNumeric(Mid(str, i, 1)) Then num = num & Mid(str, i, 1) Else txt = txt & Mid(str, i, 1) End If Next i If op = True Then SplitNumText = num Else SplitNumText = txt End If End Function
Hàm VBA khác. =Strip(chuỗi,FALSE) đế tách text. =Strip(chuỗi,TRUE) để tách Number dạng text, thêm=Numbervalue(Strip()) để biến Number dạng text thành Number Option Explicit Public Function Strip(ByVal x As String, LeaveNums As Boolean) As Variant Dim y As String, z As String, n As Long For n = 1 To Len(x) y = Mid(x, n, 1) If LeaveNums = False Then If y Like "[A-Za-z ]" Then z = z & y 'False keeps Letters and spaces only Else If y Like "[0-9. ]" Then z = z & y 'True keeps Numbers and decimal points End If Next n Strip = Trim(z) End Function
ko cần hàm hoặc VBA. Cái này đơn giản. Trước trong công ty cần tách 30 ngàn dòng dữ liệu chia 5 người làm 1 tuần. Mình ôm về làm 20 giây xong gửi lại cho tất cả... Tách bất cứ thứ gì mình thích với bất cứ định dạng nào :D
A Gà, cho em hỏi nếu muốn tách mã (có số và chữa) nằm ở đầu thì sao A. _000-2B HỘP XE ĐUA ĐỊA HÌNH ĐK CẦN GẠT XOAY CÓ SẠC TL 1:18 _0006 NƯỚC XÀ BÔNG 1 CHAI 500ml _0007 NƯỚC XÀ BÔNG 1 CHAI 250ml _0011 TÚI THÚ 1C CÁ MẬP MỀM PIN NHẠC A vui lòng hổ trợ giúp em.TKS
Kênh và các bạn cho mình hỏi ví dụ mình có vài dòng ô dữ liệu chứa như này a:9, b:5, c:8, d…. a:7, b:3, c:2, d…. a:2, b:3, c:1, d…. mỗi cụm phân cách bởi dấu phẩy mình muốn lọc riêng mỗi cụm hoặc riêng các số tương ứng a hoặc b hoặc c….ra thì làm như nào? Mình cảm ơn
ko cần hàm hoặc VBA. Cái này đơn giản. Trước trong công ty cần tách 30 ngàn dòng dữ liệu chia 5 người làm 1 tuần. Mình ôm về làm 20 giây xong gửi lại cho tất cả... Tách bất cứ thứ gì mình thích với bất cứ định dạng nào :D
@@NguyenLe-pi3ll bạn copy toàn bộ cột và vùng dữ liệu.. vào notepad. Sau đó ctr+H. Thay ký tự muốn tách thành cái khoản trống (copy 2 ô liền kế bên trong excel vào notepad để lấy cái khoảng trống giữa 2 ô đó). Xong sau khi replace thì pass ngược lại vô excel là tự nhiên thành 2 cột riêng theo ý mình... Cái notepad++ có tính năng còn nhanh và chĩnh xác hơn
Mình gặp 1 lỗi như sau , mong bạn giải đáp giúp mình : VD chuỗi là : Gà 0123 Dùng lệnh Find ({0}; ---ok ( dấu chấm phẩy), ra kết quả Find({0}, --- báo lỗi ( dùng dấu phẩy ), #value Dùng lệnh Find ({0,1,2,3}; ---báo lỗi, câu lênh tự chuyển thành Find({0,123}; và vẫn báo lỗi #value Dùng lệnh Find ({0,1,2,3}, mặc định sai.
Tách số ở bất kỳ vị trí nào, ví dụ cần tách số ở vị trí A2 thì: =IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {“0″,”1″,”2″,”3″,”4″,”5″,”6″,”7″,”8″,”9”}, “”)))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(-MID(A2,ROW(INDIRECT(“$1:$”&LEN(A2))),1))* ROW(INDIRECT(“$1:$”&LEN(A2))),0), ROW(INDIRECT(“$1:$”&LEN(A2))))+1,1) * 10^ROW(INDIRECT(“$1:$”&LEN(A2)))/10),””)
![Felix "Unfair" | [Stray Kids : SKZ-PLAYER]](http://i.ytimg.com/vi/Oswujxm2Ag0/mqdefault.jpg)
Thật là tuyệt vời ông mặt trời. Merci Gà excel thật nhiều. Mong bạn ra thêm video nữA nha
anh Gà thử hàm VBA sau sẽ thấy mê luôn. Tách chuỗi gồm Text và Number lồng xen kẽ vào nhau> Text riêng, Number riêng, Cú pháp =SplitNumText(chuỗi,0 nếu muốn tách text hoặc 1 nếu muốn tách Number). Riêng trường hợp chuỗi tách có dạng TextNumber hoặc NumberText thì bao phía trước hàm TRIM để khử dấu khoảng cách. thế là xong
Code:
Function SplitNumText(str As String, op As Boolean)
num = ""
txt = ""
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then
num = num & Mid(str, i, 1)
Else
txt = txt & Mid(str, i, 1)
End If
Next i
If op = True Then
SplitNumText = num
Else
SplitNumText = txt
End If
End Function
Hàm VBA khác. =Strip(chuỗi,FALSE) đế tách text. =Strip(chuỗi,TRUE) để tách Number dạng text, thêm=Numbervalue(Strip()) để biến Number dạng text thành Number
Option Explicit
Public Function Strip(ByVal x As String, LeaveNums As Boolean) As Variant
Dim y As String, z As String, n As Long
For n = 1 To Len(x)
y = Mid(x, n, 1)
If LeaveNums = False Then
If y Like "[A-Za-z ]" Then z = z & y 'False keeps Letters and spaces only
Else
If y Like "[0-9. ]" Then z = z & y 'True keeps Numbers and decimal points
End If
Next n
Strip = Trim(z)
End Function
Hihi, Gà cảm ơn nha.
past qua Note hay Notepad làm xong past lại quá excel mất 5 giây thôi bạn.
Cám ơn rất nhiều, nhờ video này mà mình tách data của cty mình để làm được báo cáo. rất rất hài lòng
ko cần hàm hoặc VBA. Cái này đơn giản. Trước trong công ty cần tách 30 ngàn dòng dữ liệu chia 5 người làm 1 tuần. Mình ôm về làm 20 giây xong gửi lại cho tất cả...
Tách bất cứ thứ gì mình thích với bất cứ định dạng nào :D
@@PhatTran-cp8yf giới thiệu cho minh với bạn ơi
😢😢😢nghe như vịt nghe sấm luôn huhu
đang ngứa thì gải đúng chổ thank
A Gà, cho em hỏi nếu muốn tách mã (có số và chữa) nằm ở đầu thì sao A.
_000-2B HỘP XE ĐUA ĐỊA HÌNH ĐK CẦN GẠT XOAY CÓ SẠC TL 1:18
_0006 NƯỚC XÀ BÔNG 1 CHAI 500ml
_0007 NƯỚC XÀ BÔNG 1 CHAI 250ml
_0011 TÚI THÚ 1C CÁ MẬP MỀM PIN NHẠC
A vui lòng hổ trợ giúp em.TKS
dạ em muốn lấy chuỗ ký tự ở trong 1 và 2 cái ngoặc thì làm thế nào hả a gà ơi ,
Bài hướng dẫn bạn nói ở cuối video ở đâu ạ
giả sử có chuổi abc123deg456 yêu cầu tách số từ chuổi này vs kết quả mong muốn 123456 thì làm ntn ad?
Rất hay. Cám ơn Gà Excel
Hi. Minh châm hiểu quá huhu😋
Cũng hơi nhiều hàm 1 chút, bạn cố gắng hiểu từng hàm 1 trước cũng được ạ
chỉ em cách lấy 2 chữ số sau dấu phân cách thập phân với ạ
Cộng tổng của số lọc ra làm hàm lồng vào như nào nữa ạ
có cách làm ngược lại k ạ, e muốn chữ và số tạo thành chuỗi ạ
Cảm ơn A
Chuỗi kiể ký tự số ở giữa như C201NOI thì làm như thế nào ạ? ( số ký tự ở giữa đó không cùng số ký tự)
hay và bổ ích. Tks🙏
Cho em xin cái video mà lấy số ở bên trái với anh. E tìm trong mô tả k thấy
Kênh và các bạn cho mình hỏi ví dụ mình có vài dòng ô dữ liệu chứa như này
a:9, b:5, c:8, d….
a:7, b:3, c:2, d….
a:2, b:3, c:1, d….
mỗi cụm phân cách bởi dấu phẩy
mình muốn lọc riêng mỗi cụm hoặc riêng các số tương ứng a hoặc b hoặc c….ra thì làm như nào? Mình cảm ơn
Xin hướng dẫn tách số trong dãy sau thành 3 cột : 12mmx350mmx1068mm . Cảm ơn ạ
Có cách nào tách chữ la tinh và số trong có lẫn tiếng Trung trong đó không anh. WPS office
đang làm việc ở đâu vậy bạn ơi
Chia sẻ rất hay
Gà cảm ơn nha
Hay quá anh ơi
Khi đánh tiêu đề vitriso no tự động định dạng, làm sao để ra như vậy ak
nếu số ở đầu tiên ví dụ 6.30Nnnnnnnn
muốn tách 6.30 ra khỏi chuỗi trên thì xử lý như thế nào ạ? mong anh giúp đỡ
Thầy cho em hỏi, khi tải file của thầy về làm thì ra kết quả, nhưng thử vào một file khác lại có thông báo "SPILL"?, là bị lỗi gì vậy thầy?
Trường hợp ký tự chữ và số nằm xen kẽ thì sao anh Gà ơi
Hàm VBA nhé
Bạn xem bài về VBA trên kênh mà mình cũng để ở phần mô tả dưới video đó ạ
ruclips.net/video/BKusAupRLhg/видео.html
không cần VBA hay bất cứ hàm nào nhé. 5 giây xong bằng Note hay Notepad.
Chia sẻ cho em file tách số ở chuoi số nằm ở vị trí bất kỳ
ruclips.net/video/BKusAupRLhg/видео.html
Dùng Note hay Notepad làm 5s xong ad ơi! ko cần VBA hay hàm nào, chấp hết kể cả xen kẽ (số, chữ , số ..)
ko cần hàm hoặc VBA. Cái này đơn giản. Trước trong công ty cần tách 30 ngàn dòng dữ liệu chia 5 người làm 1 tuần. Mình ôm về làm 20 giây xong gửi lại cho tất cả...
Tách bất cứ thứ gì mình thích với bất cứ định dạng nào :D
@@PhatTran-cp8yf bạn có thể share cách làm không ạ
share đi bác
@@NguyenLe-pi3ll bạn copy toàn bộ cột và vùng dữ liệu.. vào notepad. Sau đó ctr+H. Thay ký tự muốn tách thành cái khoản trống (copy 2 ô liền kế bên trong excel vào notepad để lấy cái khoảng trống giữa 2 ô đó). Xong sau khi replace thì pass ngược lại vô excel là tự nhiên thành 2 cột riêng theo ý mình...
Cái notepad++ có tính năng còn nhanh và chĩnh xác hơn
@@thaiat710 xem bình luận sau nhà bạn. Ko đc comment mình nói rõ hơn cho
Thanks
OK ạ.
Mình gặp 1 lỗi như sau , mong bạn giải đáp giúp mình :
VD chuỗi là : Gà 0123
Dùng lệnh Find ({0}; ---ok ( dấu chấm phẩy), ra kết quả
Find({0}, --- báo lỗi ( dùng dấu phẩy ), #value
Dùng lệnh Find ({0,1,2,3}; ---báo lỗi, câu lênh tự chuyển thành Find({0,123}; và vẫn báo lỗi #value
Dùng lệnh Find ({0,1,2,3}, mặc định sai.
bạn thử thay ( , ) bằng (;) xem sao
thật pro
Vậy số ở giữa thì lấy thế nào ạ?
Bạn dùng VBA nha, trong phần mô tả mình có để link bài đó để bạn theo dõi thêm rồi ạ
Có chia sẻ code hàm VBA rồi đấy, thử chưa?
Tách số ở bất kỳ vị trí nào, ví dụ cần tách số ở vị trí A2 thì:
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {“0″,”1″,”2″,”3″,”4″,”5″,”6″,”7″,”8″,”9”}, “”)))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(-MID(A2,ROW(INDIRECT(“$1:$”&LEN(A2))),1))* ROW(INDIRECT(“$1:$”&LEN(A2))),0), ROW(INDIRECT(“$1:$”&LEN(A2))))+1,1) * 10^ROW(INDIRECT(“$1:$”&LEN(A2)))/10),””)
ruclips.net/video/BKusAupRLhg/видео.html
Có cách nhanh hơn. .
cách nào thế b
Có lẽ là Flash fill hoặc VBA
Bạn hướng dẫn cho mọi người cùng tham khảo nha
Dùng ctr+e trong một nốt nhạc
Em mới chỉ copy cách làm của bác thôi chứ chưa kịp nghiên cứu bản chất :))
YES SIR !
Mình có thể xin số điện thoại hoặc email bạn k ah?
Bạn xem trong phần mô tả có thông tin của Gà đó ạ
Inbox fb với Gà đã rất lâu rồi mà k thấy phản hồi
Mà ko dùng vba