Hỏi cách lọai bỏ khỏang trắng và dấu gạch nối (-) trong chuỗi.

[vungoc]

Bạn nào biết cách lọai bỏ tòan bộ khỏang trắng và dấu gạch nối (dấu -) trong chuỗi, vui lòng giúp mình với:

Ví dụ:

- Trước khi lọai bỏ, nguyên gốc chuỗi như thế này: A10 BAR-AP03 -DA0BG2 BIS
- Sau khi lọai bỏ, chuỗi sẽ là: A10BARAP03DA0BG2BIS

(Không dùng Find and replace)

Mong nhận được sự trợ giúp / Cảm ơn mọi người !

 

[anhtuan1066]

Ngọc ơi dễ mà... bạn dùng 2 lần hàm SUBSTITUTE.. trước tiên là thay " " thành "", sau đó lại dùng SUBSTITUTE đễ thay thế "-" thành ""
Nay nhé:
A1 = A10 BAR-AP03 -DA0BG2 BIS
B1= SUBSTITUTE(A1," ","")
C1 =SUBSTITUTE(B1,"-","")

Còn ko thì kết hợp 1 lần luôn cũng dc
B1 =SUBSTITUTE(SUBSTITUTE(A1,"-","")," ","")
Mến
ANH TUẤN

 

[Mr Okebab]

Bạn nào biết cách lọai bỏ tòan bộ khỏang trắng và dấu gạch nối (dấu -) trong chuỗi, vui lòng giúp mình với:

Ví dụ:

- Trước khi lọai bỏ, nguyên gốc chuỗi như thế này: A10 BAR-AP03 -DA0BG2 BIS
- Sau khi lọai bỏ, chuỗi sẽ là: A10BARAP03DA0BG2BIS

(Không dùng Find and replace)

Mong nhận được sự trợ giúp / Cảm ơn mọi người !

Việc loại bỏ này không khó, cái khó là chuỗi này có qui luật gì không ??

1. Lúc nào cũng có 2 ký tự "-" và 2 ký tự " " ??
2. Lúc nào cũng 20 ký tự ??
3. Ký tự "-" luôn ở vị trí 8; 14. Ký tự " " ở vị trí 3; 13 . . .
4. . . . . . . . .

Từ những qui luật ta mới áp dụng cái tổng quát nhất.
Còn PP thì : Công thức, VBA (VBA thì cực dễ, cứ gặp "-" và " " nó bỏ)

Đây là UF của em :

Option Explicit
Function VuNgoc(Em As Range) As String
    Dim i As Long
    Dim m As String
    For i = 1 To Len(Em)
        m = Mid(Em, i, 1)
        If m <> "-" And m <> " " Then VuNgoc = VuNgoc & m
    Next
    Set Em = Nothing
End Function

Thân!

 

[Thien]

Mr Hiếu ơi.
Nếu muốn chuyển thành sub thì làm sao nhỉ?.

TC.

 

[tedaynui]

Mr Hiếu ơi.
Nếu muốn chuyển thành sub thì làm sao nhỉ?.

TC.

Nếu chuyển thành Sub thì mình vẫn dùng tới Function VuNgoc của Mr.Hiếu. Trong thủ tục Sub mình cho duyệt qua tất cả các Cell trong vùng chọn và Cells(i,k).value = VuNgoc(Cells(i,k).value)

Thân!

 

[Thien]

Nếu chuyển thành Sub thì mình vẫn dùng tới Function VuNgoc của Mr.Hiếu. Trong thủ tục Sub mình cho duyệt qua tất cả các Cell trong vùng chọn và Cells(i,k).value = VuNgoc(Cells(i,k).value)

Thân!

Bạn cho tôi 1 đoạn code ví dụ để học nhen. Chứ tôi muốn đổi hàm loaidauUni của anhphuong sang sub vẫn chưa được.

TC.