Bỏ ký tự đầu và cuối của chuỗi

baodaisoi · 8/11/12

Tình hình là mình đã tìm các bài viết khác trong chuyên mục này mà honk thấy nên POst bài hỏi mấy bạn.
Tình hình mình cần là lấy các chuỗi số trong chuỗi:

PHP:

B4: QB102S
B5: DD33L
B6: LN8L
B7: QT9L
B8: DT150S
...

Có ai tách số từ cột B không?
Cái đề thi Tin A, nên mình nghĩ chỉ mấy cái hàm thông dụng thôi!

Cụ thể là Files đính kèm:

viehoai · 8/11/12

baodaisoi đã viết:
Tình hình là mình đã tìm các bài viết khác trong chuyên mục này mà honk thấy nên POst bài hỏi mấy bạn.
Tình hình mình cần là lấy các chuỗi số trong chuỗi:

PHP:

B4: QB102S B5: DD33L B6: LN8L B7: QT9L B8: DT150S ...

Có ai tách số từ cột B không?
Cái đề thi Tin A, nên mình nghĩ chỉ mấy cái hàm thông dụng thôi!

Cụ thể là Files đính kèm:

Tình hình là công thức tại C4=MID(B4;3;LEN(B4)-3)

baodaisoi · 8/11/12

@vihoai: ^^'! Củm mơn bạn nhìu hen!
Gút gút!
Tại mình honk bít cái Hàm "Len", lần đầu thấy nó!

Có thể Stop bài này đc ùi áh! $-\\/.$

baodaisoi · 8/11/12

Tình hình sẳn đây hỏi @viehoai luôn nhé!

PHP:

B4: QB102SS
B5: DD33L
B6: LN8LL
B7: QT9LLLL
B8: DT150S
...

Nếu như thế thì mình làm sao tách chữ số ra được?
^^'?

ndu96081631 · 8/11/12

baodaisoi đã viết:
Tình hình sẳn đây hỏi @viehoai luôn nhé!

PHP:

B4: QB102SS B5: DD33L B6: LN8LL B7: QT9LLLL B8: DT150S ...

Nếu như thế thì mình làm sao tách chữ số ra được?
^^'?

Thử vầy xem:

Mã:

=MID(B4,3,LOOKUP(10,1*MID(B4,ROW($1:$255),1),ROW($1:$255))-2)

baodaisoi · 8/11/12

ndu96081631 đã viết:
Thử vầy xem:

Mã:

=MID(B4,3,LOOKUP(10,1*MID(B4,ROW($1:$255),1),ROW($1:$255))-2)

Nó sai gì rồi bạn ơi!
Bạn lập cái hàm mình honk hiểu nổi!
Viết y chang theo luôn mà honk đc...

vanle33 · 8/11/12

Bạn đổi tất cả dấu , thành ; xem sao?!

baodaisoi · 8/11/12

vanle33 đã viết:
Bạn đổi tất cả dấu , thành ; xem sao?!

Cái "," với ";" thì không có đâu. Cái đó mình bít!

Mà bạn thử cái của @ndu96081631 chưa?

vanle33 · 8/11/12

ndu96081631 đã viết:
Thử vầy xem:

Mã:

=MID(B4,3,LOOKUP(10,1*MID(B4,ROW($1:$255),1),ROW($1:$255))-2)

Bác giúp em lập công thức tổng quát tương tự như trên để có thể tách lấy số khi số ở bất kỳ vị trí nào và có bao nhiêu số cũng được không chỉ dành cho trường hợp số ở sau 2 ký tự như trên ??

vanle33 · 8/11/12

baodaisoi đã viết:
Cái "," với ";" thì không có đâu. Cái đó mình bít!

Mà bạn thử cái của @ndu96081631 chưa?

Mình đã thử dùng công thức của ndu và ra được kết quả OK

vanle33 · 8/11/12

Bác ndu cho em ý kiến ở bài #9 với. Vì bác là tác giả của công thức mà!

ndu96081631 · 8/11/12

vanle33 đã viết:
Bác ndu cho em ý kiến ở bài #9 với. Vì bác là tác giả của công thức mà!

Vầy thử xem:

Mã:

=MID(B4,LOOKUP(10,1*MID(B4,ROW($1:$255),1),ROW($1:$255))-COUNT(1*MID(B4,ROW($1:$255),1))+1,COUNT(1*MID(B4,ROW($1:$255),1)))

Công thức mảng nha! Phải Ctrl + Shift + Enter

vanle33 · 8/11/12

ndu96081631 đã viết:
Vầy thử xem:

Mã:

=MID(B4,LOOKUP(10,1*MID(B4,ROW($1:$255),1),ROW($1:$255))-COUNT(1*MID(B4,ROW($1:$255),1))+1,COUNT(1*MID(B4,ROW($1:$255),1)))

Công thức mảng nha! Phải Ctrl + Shift + Enter

OK bác ah
Nhưng công thức có thể làm cho 1 trường hợp như thế này không : aabh2436ngm435 (nghĩa là có 1 hoặc nhiều chữ cái xen lẫn giữa các số)!?

ndu96081631 · 8/11/12

vanle33 đã viết:
OK bác ah
Nhưng công thức có thể làm cho 1 trường hợp như thế này không : aabh2436ngm435 (nghĩa là có 1 hoặc nhiều chữ cái xen lẫn giữa các số)!?

Bài toán TÁCH SỐ có cả đóng trên diễn đàn rồi (tôi post đã lâu) ---> Sao bạn không tự tìm đi
Chẳng hạn là bài này:
http://www.giaiphapexcel.com/forum/...-mừng-sinh-nhật-GPE-lần-5&p=317705#post317705

vanle33 · 10/11/12

xuanquynh3 đã viết:
Tình hình là công thức tại C4=MID(B4;3;LEN(B4)-3)
B4: QB102SS
B5: DD33L
B6: LN8LL
B7: QT9LLLL
B8: DT150S

Bạn áp dụng bài #14 chưa? Công thức và Name của bác ndu rất hay.

siwtom · 10/11/12

ndu96081631 đã viết:
Bài toán TÁCH SỐ có cả đóng trên diễn đàn rồi (tôi post đã lâu) ---> Sao bạn không tự tìm đi
Chẳng hạn là bài này:
http://www.giaiphapexcel.com/forum/...-mừng-sinh-nhật-GPE-lần-5&p=317705#post317705

"Có cả đống" thì chắc là có nhưng tôi không tìm đọc (hơi lười) nên không biết cái tôi định nói đã có chưa. Thôi thì cứ liều vậy.

Thêm điều kiện chút: "Cho một chuỗi ký tự gồm chữ số và không chữ số (dấu ".", "," không là các dấu thập phân). Hãy tách ra các chuỗi có dạng số tự nhiên mà trong 3 chữ số đầu phải có ít nhất 1 chữ số 2"

Vd. chuỗi: "2abc+_*/?12234def1342gh234567 11289 5678 opq000223rst00289 xyz"
Kết quả: 2, 12234, 234567, 11289, 00289
-------------
VBA, công thức đều được

concogia · 10/11/12

siwtom đã viết:
"Có cả đống" thì chắc là có nhưng tôi không tìm đọc (hơi lười) nên không biết cái tôi định nói đã có chưa. Thôi thì cứ liều vậy.

Thêm điều kiện chút: "Cho một chuỗi ký tự gồm chữ số và không chữ số (dấu ".", "," không là các dấu thập phân). Hãy tách ra các chuỗi có dạng số tự nhiên mà trong 3 chữ số đầu phải có ít nhất 1 chữ số 2"

Vd. chuỗi: "2abc+_*/?12234def1342gh234567 11289 5678 opq000223rst00289 xyz"
Kết quả: 2, 12234, 234567, 11289, 00289
-------------
VBA, công thức đều được

Một cách "xi-ma-chao" đây

Mã:

Public Function Tach(Cll As Range) As String
    Dim Re As Object, ReTim As Object, A, Kq
    Set Re = CreateObject("vbscript.regexp")
    With Re
        .Global = True
        .Pattern = "[0-9]+"
    End With
        Set ReTim = Re.Execute(Cll)
            For Each A In ReTim
                If InStr(Left(A.Value, 3), "2") Then Kq = Kq & A.Value & ", "
            Next A
    Tach = Left(Kq, Len(Kq) - 2)
End Function

Mình biết pattern có thể tìm được ngay kết quả, nhưng......cóc biết viết làm sao, nhưc cái đầu quá, tới giờ nhậu dzồi
Để tối về tính tiếp
Híc

ndu96081631 · 10/11/12

concogia đã viết:
Một cách "xi-ma-chao" đây

Mã:

Public Function Tach(Cll As Range) As String Dim Re As Object, ReTim As Object, A, Kq Set Re = CreateObject("vbscript.regexp") With Re .Global = True .Pattern = "[0-9]+" End With Set ReTim = Re.Execute(Cll) For Each A In ReTim If InStr(Left(A.Value, 3), "2") Then Kq = Kq & A.Value & ", " Next A Tach = Left(Kq, Len(Kq) - 2) End Function

Mình biết pattern có thể tìm được ngay kết quả, nhưng......cóc biết viết làm sao, nhưc cái đầu quá, tới giờ nhậu dzồi
Để tối về tính tiếp
Híc

Đang bàn về công thức mà anh!

siwtom · 10/11/12

ndu96081631 đã viết:
Đang bàn về công thức mà anh!

Không phải thế đâu Tuấn à.
Ai viết được bằng VBA thì viết. Ai giỏi làm được bằng công thức mà ngắn gọn nhất có thể thì "vỗ tay không ngớt".

siwtom · 10/11/12

concogia đã viết:
Một cách "xi-ma-chao" đây

Mã:

Public Function Tach(Cll As Range) As String Dim Re As Object, ReTim As Object, A, Kq Set Re = CreateObject("vbscript.regexp") With Re .Global = True .Pattern = "[0-9]+" End With Set ReTim = Re.Execute(Cll) For Each A In ReTim If InStr(Left(A.Value, 3), "2") Then Kq = Kq & A.Value & ", " Next A Tach = Left(Kq, Len(Kq) - 2) End Function

Mình biết pattern có thể tìm được ngay kết quả, nhưng......cóc biết viết làm sao, nhưc cái đầu quá, tới giờ nhậu dzồi
Để tối về tính tiếp
Híc

Vậy thì chúng ta kiên nhẫn đợi cho tới khi cuộc nhậu tàn và cái đầu bớt nhức đây.
À, dùng Instr hả. Thế thì ta phát biểu lại bài:

"Cho một chuỗi ký tự gồm chữ số và không chữ số (dấu ".", "," không là các dấu thập phân). Hãy tách ra các chuỗi có dạng số tự nhiên mà đoạn đầu - độ dài tùy ý - có dạng AA, trong đó A là 1 chuỗi chữ số"

Vd. chuỗi: "2abc+_*/?12234def1313gh234567 11119 5678 opq000223rst00289 xyz"
Kết quả: 1313, 11119, 000223, 00289

Bỏ ký tự đầu và cuối của chuỗi

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên gạo cội

Thành viên gạo cội

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Thành viên gạo cội

Thành viên gắn bó

Gội rồi mới Cạo

File đính kèm

Huyền thoại GPE

Thành viên gắn bó

Thành viên gắn bó

Facebook

Group