Nói về MoreFunc thì tôi đã có từ lâu lắm rồi (từ ngày mới gia nhập diễn đàn)... nhưng nói thật, ít khi nào tôi dùng đến các Add-In (trừ những trường hợp bất khả kháng)...
Tôi đảm bảo nếu viết riêng cho từng trường hợp cụ thể thì tự viết sẽ hiệu quả hơn các Add-in sẵn có. Ví dụ như bạn nói hàm tách số. Trong chuỗi ngoài số ra đâu chỉ có các ký tự từ a đến z, còn các ký tự khác nữa mà (".", ",", "@", "$", "%", "(", ")",...). Trong khi dùng VBScript.RegExp một phát là xong.
Thì bạn làm luôn đi... chỉ có việc tập hợp lại thôi mà
Tôi có ý kiến thế này:
To Learning_Excel: Em rất thích ý tưởng của bác, đối với các thày chuyên sâu như thày ndu, ptm, anh huuthang-bd... thì không bàn làm gì? Nhưng với những thành viên chưa thạo lắm về Add-Ins như em thì em thích cái vụ này lắm. Thày ndu đã có ý như vậy thì bác gom thử xem sao, có gì cho em hưởng với... hìhì...nói vậy thôi, em chưa thạo lắm, nếu em trợ giúp bác được cái gì em sẵn sàng ngay.
Món này làm hoài, xem ra chẳng khó tí nào. Công thức cho B1:
=TRIM(MID(SUBSTITUTE(TRIM($A1)," ",REPT(" ",LEN($A1))),1+(COLUMNS($A:A)-1)*LEN($A1),LEN($A1)))Cách 1:
Arr=EVALUATE("{"""&SUBSTITUTE($A1," ",""",""")&"""}")B1=IF(COLUMN(A:A)>COUNTA(Arr),"",INDEX(Arr,COLUMN(A:A)))B1=TRIM(MID(REPT(" ",100)&SUBSTITUTE($A1," ",REPT(" ",200)),(COLUMN(A:A)-1)*200+1,200))
Biết là NDU có làm file này, mở lên và chưa kịp gán vào và xem lại thì đã có đáp án.Lẹ còn hơn tên lửa nữa
Anh Tuấn có xuống SG alo em cafe nhé. Thắng hôm nào rãnh cafe nhé!
Thanh Phong
Hỏi lại: Có cho dùng Name không?
=INDEX(TRIM(MID(SUBSTITUTE(TRIM($A3)," ",REPT(" ",LEN($A3))),1+(ROW($1:$100)-1)*LEN($A3),LEN($A3))),SMALL(IF(ISERROR(1*TRIM(MID(SUBSTITUTE(TRIM($A3)," ",REPT(" ",LEN($A3))),1+(ROW($1:$100)-1)*LEN($A3),LEN($A3)))),"",ROW($1:$100)),B$1))
Hihi, vẫn ế.
