Lấy kí tự trong chuỗi (1 người xem)
- Thread starter Banba
- Ngày gửi
Người dùng đang xem chủ đề này
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Dùng VBA là giải quyết được ngay!
Rất mong các bạn giúp: công thức, VBA đều tốt cả
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,859
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Bạn dùng công thức sau: =LEFT(A1,4)&RIGHT(A1,4), với A1 là ô chứa chuỗi ban đầu.
Xin sửa #1 là AABB..._Q1234...-BCD... TỨC LÀ BỎ ĐI CÁC KÍ TỰ GIŨA HAI GẠCH NỐI"_""-" CÒN LẠI LẤY HẾT
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Nếu bài của anh NghiaPhuc chưa giải quyết hết được các trường hợp khác thì bạn đưa File lên tôi giúp!
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,859
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Nhờ các bạn giúp đỡ, rất cảm ơn
Lần chỉnh sửa cuối:
Cảm ơn Nghiaphuc bài của bạn đúng như tôi mong muốn rồi, nhưng to mò muốn dùng VBA rất mong các bạn giúp thêm
Lần chỉnh sửa cuối:
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,859
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Trong dữ liệu của bạn, có ô có chứa ký tự "_", có ô không có, còn ký tự "-" thì ô nào cũng có. Như vậy, bạn có thể sử dụng công thức sau cho ô B4:
Mã:
=IF(ISNUMBER(FIND("_",A4)),REPLACE(A4,FIND("_",A4),FIND("-",A4)-FIND("_",A4),""),A4)Bạn giúp mình VBA nhé, cảm ơn
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
VBA của bạn đây...............................
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
VBA bằng Function đây:
PHP:
Public Function GPE(Str As String) As String
Dim Tem1, Tem2
If InStr(Str, "_") Then
Tem1 = Split(Str, "_")
Tem2 = Split(Tem1(UBound(Tem1)), "-")
GPE = Tem1(0) & "-" & Tem2(UBound(Tem2))
Else
GPE = Str
End If
End Function
PHP:
Public Function GPE(Str As String) As String
Dim Tem
Str = Replace(Str, "_", "-")
Tem = Split(Str, "-")
GPE = Tem(0) & "-" & Tem(UBound(Tem))
End FunctionCông thức
B4=GPE(A4)
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Nếu muốn dùng hàm thì copy đoạn code này bỏ vào modul:
------------------------------------------------
Cách dùng: Ví dụ tại ô B4
B4=Tach(A4)
Kéo xuống dưới.
Mã:
Public Static Function Tach(rng As Range)
Tach = Replace(rng, "_Q123", "")
End FunctionCách dùng: Ví dụ tại ô B4
B4=Tach(A4)
Kéo xuống dưới.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,982
Cái đồ quỷ này mà VBA chi cho mất công. Tôi làm như sau:
- Quét chọn vùng dữ liệu
- Bấm Ctrl + H
- Khung Find what nhập _*-
- Khung Replace with nhập -
- Bấm Replace All
Xong!
------------
Nếu VBA thì cũng mỗi câu lệnh này là xong: Selection.Replace "_*-", "-", xlPart (gõ ngay trong cửa sổ Immediate luôn, khỏi cần phải chèn module gì ráo)
Sát thủ thật.
Đúng là thông minh chính là đưa ra được phương pháp đơn giản nhất, hiệu quả nhất. Tâm đắc thật.
Bái phục thầy.
Bái phục thầy lần nữa. Tối nay mất ngủ.
.
Lần chỉnh sửa cuối:
langtuchungtinh360
Thành viên đã dừng hoạt động
- Tham gia
- 7/10/13
- Bài viết
- 1,062
- Được thích
- 334
cao thủ có khác. bái phục thầy.
Góp ý thêm:
Theo mình cái này dung công cụ Data/data tools/ Text to column là tuyệt vời và nhanh nhất không cần con dao mổ trâu " VBA" và mấy cái công thức phức tạp trên. trường hợp mà có ô có ký tự "_" hoặc "-" và ô không có dung công thức chắc điên đầu luôn. Hy vong co ich
Tks,
Theo mình cái này dung công cụ Data/data tools/ Text to column là tuyệt vời và nhanh nhất không cần con dao mổ trâu " VBA" và mấy cái công thức phức tạp trên. trường hợp mà có ô có ký tự "_" hoặc "-" và ô không có dung công thức chắc điên đầu luôn. Hy vong co ich
Tks,
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn nên đọc từ đầu rồi hãy viết bài. Bạn biết mục đích của người ta là gì chưa mà bạn viết như vậy? Chưa cần dùng tới cách của anh NghiaPhuc và cách của thầy ndu chì cần lấy cách của tôi ra để so sánh thôi cách của bạn cũng ko so được rồi, bởi vì kết quả nó có đúng đâu mà đòi so sánh tốc độ????
- Tham gia
- 25/9/09
- Bài viết
- 5,729
- Được thích
- 8,859
- Giới tính
- Nam
- Nghề nghiệp
- Giáo viên
Nếu chỉ bỏ 2 ký tự này thì bạn sử dụng hàm SUBSTITUTE là được.
khuongvietphong
Be all you can be !
- Tham gia
- 6/7/14
- Bài viết
- 2,069
- Được thích
- 1,444
- Nghề nghiệp
- Ăn không ngồi rồi ^.^
Bạn có thể dùng cách trên của chú Ndu hướng dẫn nhưng mà phải thao tác 2 lần : Lần 1 là để loại bỏ dấu - và lần 2 là để loại bỏ dấu _
Còn nếu làm theo CT thì bạn thử CT này: =SUBSTITUTE(SUBSTITUTE(A1,"-",""),"_","")
Với A1 là ô chứa dữ liệu ban đầu
Lần chỉnh sửa cuối:
Bài viết mới nhất
- Đã giải quyết
- Question
- Question
