Tìm và lấy chữ theo điều kiện trong 1 chuỗi (3 người xem)

[Thien]

Hi all !

Có chuỗi :
- TTT TT TIEN THE BC25/08/2008CTY CP DT AN PHONG(000000005200142)TG:0ST:2190905VND muốn lọc lấy chữ THE
- CTY TNHH SXTM CN AVAL-TT TIEN THUE KE HD 10048 ,89018 muốn lấy chữ KE
- CTY CP THUC PHAM HAN CO CHI TIEN TREO BANNER QUANG CAO TAI MAXIMARK CONG HOA muốn lấy chữ QUANG CAO
- TRAN THI MY HANH DONG TIEN MAT BANG THANG 5 muốn lấy chữ MAT BANG.

Như vậy sẽ tìm trong chuỗi và lấy ra những từ cần lấy đúng với điều kiện cho trước (những chữ màu đỏ).

Các bạn giúp hộ.

Thân

 

[ThuNghi]

Hi all !

Có chuỗi :
- TTT TT TIEN THE BC25/08/2008CTY CP DT AN PHONG(000000005200142)TG:0ST:2190905VND muốn lọc lấy chữ THE
- CTY TNHH SXTM CN AVAL-TT TIEN THUE KE HD 10048 ,89018 muốn lấy chữ KE
- CTY CP THUC PHAM HAN CO CHI TIEN TREO BANNER QUANG CAO TAI MAXIMARK CONG HOA muốn lấy chữ QUANG CAO
- TRAN THI MY HANH DONG TIEN MAT BANG THANG 5 muốn lấy chữ MAT BANG.

Như vậy sẽ tìm trong chuỗi và lấy ra những từ cần lấy đúng với điều kiện cho trước (những chữ màu đỏ).

Các bạn giúp hộ.

Thân

Lấy ra là thay thế ="" hay lấy ra 1 cột khác. Cái này dễ mà.
For i = 1 to endR
For j =1 to endDK
if instr(1,DK(j), chuoi(i)) > 0 then
replace(...)

end if
Next
Next
Làm thô Code, Thiện triển khai nhé!

 

[Thien]

To thunghi

Lấy ra 1 cột riêng (không dùng VBA cũng được)

Thân

 

[ThuNghi]

To thunghi

Lấy ra 1 cột riêng (không dùng VBA cũng được)

Thân

Muốn lấy từ "The" và "do"
Nếu có 2 từ giống nhau: "The thoi the do" lúc đó lấy mấy "The" và gắn vào cột nào. Lỡ thỏa hết dk gồm 10 từ => lấy thành 10 cột.

 

[tuvn254]

Hi all !

Có chuỗi :
- TTT TT TIEN THE BC25/08/2008CTY CP DT AN PHONG(000000005200142)TG:0ST:2190905VND muốn lọc lấy chữ THE
- CTY TNHH SXTM CN AVAL-TT TIEN THUE KE HD 10048 ,89018 muốn lấy chữ KE
- CTY CP THUC PHAM HAN CO CHI TIEN TREO BANNER QUANG CAO TAI MAXIMARK CONG HOA muốn lấy chữ QUANG CAO
- TRAN THI MY HANH DONG TIEN MAT BANG THANG 5 muốn lấy chữ MAT BANG.

Như vậy sẽ tìm trong chuỗi và lấy ra những từ cần lấy đúng với điều kiện cho trước (những chữ màu đỏ).

Các bạn giúp hộ.

Thân

bạn đặt các chuỗi đó lần lượt ở ô A1, A2, A3, A4
ô bạn đặt chuột là ô A5, công thức sẽ là: =MID(A1;13;3)&" "&MID(A2;35;2)&" "&MID(A3;40;9)&" "&RIGHT(A4;8)

 

[Thien]

Muốn lấy từ "The" và "do"
Nếu có 2 từ giống nhau: "The thoi the do" lúc đó lấy mấy "The" và gắn vào cột nào. Lỡ thỏa hết dk gồm 10 từ => lấy thành 10 cột.

Thoã điều kiện thì gán điều kiện vào cột kế bên cột chứa chuỗi.
ví dụ:
TTT TT TIEN THE BC25/08/2008CTY THE CP DT THE AN PHONG(000000005200142)TG:0ST:2190905VND lấy 1 chữ THE gán cột kế bên.

 

[Thien]

bạn đặt các chuỗi đó lần lượt ở ô A1, A2, A3, A4
ô bạn đặt chuột là ô A5, công thức sẽ là: =MID(A1;13;3)&" "&MID(A2;35;2)&" "&MID(A3;40;9)&" "&RIGHT(A4;8)

Chuổi nằm trong 1 cột bạn ạ cột kế bên sẽ lấy ra từ thoã điều kiện (điều kiện là những từ qui định trước).

Thân.

 

[ThuNghi]

Chuổi nằm trong 1 cột bạn ạ cột kế bên sẽ lấy ra từ thoã điều kiện (điều kiện là những từ qui định trước).

Thân.

Thiện xem code

Sub THAYTHE()
Sheet1.Select
endr = [a65000].End(xlUp).Row
Set iDK = Sheet2.Range("A1:A3")
For i = 1 To endr
      
    For j = 1 To 3
      'MsgBox iDK(j)
        If InStr(1, Range("A" & i).Value, iDK(j)) > 0 Then
            Range("A" & i).Offset(, k) = iDK(j)
            k = k + 1
       End If
    Next
k = 1
Next
End Sub

Điều kiện nằm tại A1:A3 sheet2

 

[cadafi]

Có chuỗi :
......................................
- CTY CP THUC PHAM HAN CO CHI TIEN TREO BANNER QUANG CAO TAI MAXIMARK CONG HOA ---> muốn lấy chữ QUANG CAO
......................................

Lấy ra 1 cột riêng (không dùng VBA cũng được)

Giả sử:
A1 = " - CTY CP THUC PHAM HAN CO CHI TIEN TREO BANNER QUANG CAO TAI MAXIMARK CONG HOA"
Thì tại B1 ta có công thức:

B1= If(IsErr(Find("QUANG CAO",A1,1)),"","QUANG CAO")

Sau đó fill công thức xuống.

Nếu chữ đó nằm ở một ô Khác, ví dụ sheet2!A1 chẳng hạn:

B1= If(IsErr(Find(sheet2!$A$1,A1,1)),"",sheet2!$A$1)

Sau đó fill công thức xuống.


Các trường hợp khác tương tự!

 

[ndu96081631]

Hi all !

Có chuỗi :
- TTT TT TIEN THE BC25/08/2008CTY CP DT AN PHONG(000000005200142)TG:0ST:2190905VND muốn lọc lấy chữ THE
- CTY TNHH SXTM CN AVAL-TT TIEN THUE KE HD 10048 ,89018 muốn lấy chữ KE
- CTY CP THUC PHAM HAN CO CHI TIEN TREO BANNER QUANG CAO TAI MAXIMARK CONG HOA muốn lấy chữ QUANG CAO
- TRAN THI MY HANH DONG TIEN MAT BANG THANG 5 muốn lấy chữ MAT BANG.
Như vậy sẽ tìm trong chuỗi và lấy ra những từ cần lấy đúng với điều kiện cho trước (những chữ màu đỏ).
Các bạn giúp hộ.
Thân

Yêu cầu của bạn sao thấy giống cái này quá:
http://www.giaiphapexcel.com/forum/showthread.php?t=6037