hỏi về thay thế ký tự đặc biệt từ phải sang bằng chữ (có nhiều ký tự đặc biệt giống nhau)

[bicutit]

Chào các bác,
Nhờ các bác tư vẫn thay thế dấu phẩy cuối cùng bằng chữ "và".
Ví dụ văn bản gốc
mặt trời, mặt trăng, trái đất, cây khế, quả cam, con vịt, con gà, con trâu.
Văn bản muốn nhận được là:
mặt trời, mặt trăng, trái đất, cây khế, quả cam, con vịt, con gà và con trâu.

Em chưa nghĩ ra cách phối hợp replace, right, left như thế nào, nhờ các bác tư vấn.
Xin cảm ơn.

 

[SA_DQ]

Cái này xài VBA dễ như trở bàn tay í mà!

 

[batman1]

Dùng SUBSTITUTE để thay "," bằng " và". Nhưng do ta không thay hết mà chỉ thay dấu phẩy "," cuối cùng nên phải cung cấp tham số cuối cùng là chỉ số của dấu phẩy "," cuối cùng cần thay thế. Chỉ số cuối cùng về mặt số bằng số lượng dấu phẩy trong chuỗi. Để tính số lượng dấu phẩy thì dùng LEN(A1)-LEN(SUBSTITUTE(A1,",",""))

=SUBSTITUTE(A1,","," và",LEN(A1)-LEN(SUBSTITUTE(A1,",","")))

 

[bicutit]

Dùng SUBSTITUTE để thay "," bằng " và". Nhưng do ta không thay hết mà chỉ thay dấu phẩy "," cuối cùng nên phải cung cấp tham số cuối cùng là chỉ số của dấu phẩy "," cuối cùng cần thay thế. Chỉ số cuối cùng về mặt số bằng số lượng dấu phẩy trong chuỗi. Để tính số lượng dấu phẩy thì dùng LEN(A1)-LEN(SUBSTITUTE(A1,",",""))

=SUBSTITUTE(A1,","," và",LEN(A1)-LEN(SUBSTITUTE(A1,",","")))

bác thật là giỏi,
em ko nghĩ ra cách thay thế dấu phẩy bằng "" để đếm số lượng dấu phẩy,
xin chân thành cảm ơn

 

[VetMini]

Nếu abcd là 4 mục khác nhau thì
a, b, c, và d mới đúng văn phạm.
a, b, c và d là chỉ có 3 mục. Mục thứ 3 gồm c và d.

 

[hongphuong1997]

Dùng SUBSTITUTE để thay "," bằng " và". Nhưng do ta không thay hết mà chỉ thay dấu phẩy "," cuối cùng nên phải cung cấp tham số cuối cùng là chỉ số của dấu phẩy "," cuối cùng cần thay thế. Chỉ số cuối cùng về mặt số bằng số lượng dấu phẩy trong chuỗi. Để tính số lượng dấu phẩy thì dùng LEN(A1)-LEN(SUBSTITUTE(A1,",",""))

=SUBSTITUTE(A1,","," và",LEN(A1)-LEN(SUBSTITUTE(A1,",","")))

Bác oi cho cháu hỏi ké chút síu
Nếu như chuỗi có nhiều dấu ","
VD: (a,,,b,,,,,,c,,d)
Bây giờ cháu muốn thay tất cả các dấu "," chỉ còn lại 1 dấu ","
Kết quả=a,b,c,d
Thì công thức như nào ạ?

 

[Phuocam]

Bác oi cho cháu hỏi ké chút síu
Nếu như chuỗi có nhiều dấu ","
VD: (a,,,b,,,,,,c,,d)
Bây giờ cháu muốn thay tất cả các dấu "," chỉ còn lại 1 dấu ","
Kết quả=a,b,c,d
Thì công thức như nào ạ?

Excel của bạn có hàm TEXTJOIN không?

 

[ManhDuc1382]

Bác oi cho cháu hỏi ké chút síu
Nếu như chuỗi có nhiều dấu ","
VD: (a,,,b,,,,,,c,,d)
Bây giờ cháu muốn thay tất cả các dấu "," chỉ còn lại 1 dấu ","
Kết quả=a,b,c,d
Thì công thức như nào ạ?

Anh đoán thế này em nhé, được hay không anh không rõ lắm
Giả sử "a,,b,,,,,c,,,de,,f,,,g"

Function ThayTheDauPhay(Chuoi as String) as String
'Gia su so dau phay lap nhau toi da la 20
Dim i1 as Integer
Dim Chuoi2 as String
Chuoi2 = Chuoi
For i1 = 20 to 2 Step -1
Chuoi2 = Replace(Chuoi2, Application.Evaluate("=REPT(" & """" & "," & """" & "," & i1 & ")") , ",")
Next

ThayTheDauPhay = Chuoi2
End Function

Anh không biết hàm có hoạt động ok thật không vì anh chưa thử nhưng ý tưởng là kiểu thế. Em cũng nên tìm hiểu xem hàm REPT có sẵn trong VBA hay trong WorksheetFunction hay không nhưng nếu có thì em dùng kiểu có sẵn trong VBA sẽ nhanh hơn là dùng hàm Evaluate nhé

 

[huonglien1901]

Excel của bạn có hàm TEXTJOIN không?

Em không có hàm này làm sao Anh hè?
Anh có thể dùng textjoin bài này được không Anh?

 

[Phuocam]

Em không có hàm này làm sao Anh hè?
Anh có thể dùng textjoin bài này được không Anh?

Trong file có UDF TEXTJOIN. Thử công thức mảng:

=TEXTJOIN(",",TRUE,TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",LEN(A1))),ROW(INDIRECT("1:"&LEN(A1)-LEN(SUBSTITUTE(A1,",",""))))*LEN(A1)-LEN(A1)+1,LEN(A1))))

 

[huonglien1901]

Trong file có UDF TEXTJOIN. Thử công thức mảng:

=TEXTJOIN(",",TRUE,TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",LEN(A1))),ROW(INDIRECT("1:"&LEN(A1)-LEN(SUBSTITUTE(A1,",",""))))*LEN(A1)-LEN(A1)+1,LEN(A1))))

Trường hợp có 01 dấu phẩy thì sao Anh? Hình như chủ thớt có yêu cầu chuỗi có 01 dấu phẩy chắc là giữ nguyên, công thức của Anh thì loại bỏ dấu phẩy đó.

 

[Phuocam]

Trường hợp có 01 dấu phẩy thì sao Anh? Hình như chủ thớt có yêu cầu chuỗi có 01 dấu phẩy chắc là giữ nguyên, công thức của Anh thì loại bỏ dấu phẩy đó.

Chưa hiểu, cho ví dụ cụ thể.

 

[huonglien1901]

Chưa hiểu, cho ví dụ cụ thể.

Anh xem hình nè! Em chỉ đoán ý chủ thớt thôi, em nghĩ sẽ có trường hợp này!

 

[Phuocam]

Anh xem hình nè! Em chỉ đoán ý chủ thớt thôi, em nghĩ sẽ có trường hợp này!

Thử lại:

=TEXTJOIN(",",TRUE,TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",LEN(A1))),ROW(INDIRECT("1:"&LEN(A1)+1-LEN(SUBSTITUTE(A1,",",""))))*LEN(A1)-LEN(A1)+1,LEN(A1))))

 

[dazkangel]

Anh xem hình nè! Em chỉ đoán ý chủ thớt thôi, em nghĩ sẽ có trường hợp này!
View attachment 252351

Chơi bời tí, thử công thức sau:

=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A1," "," "),","," "))," ",",")," "," ")

 

[huonglien1901]

Chơi bời tí, thử công thức sau:

=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A1," "," "),","," "))," ",",")," "," ")

Công thức của Anh mới tạo khoảng trắng giữa các từ, Chắc Anh phải dùng hàm nỗi chuỗi nữa.

 

[dazkangel]

Công thức của Anh mới tạo khoảng trắng giữa các từ, Chắc Anh phải dùng hàm nỗi chuỗi nữa.

Không hiểu lắm, em thử đưa file và kết quả lên xem.

 

[huonglien1901]

Thử lại:

=TEXTJOIN(",",TRUE,TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",LEN(A1))),ROW(INDIRECT("1:"&LEN(A1)+1-LEN(SUBSTITUTE(A1,",",""))))*LEN(A1)-LEN(A1)+1,LEN(A1))))

Không hiểu lắm, em thử đưa file và kết quả lên xem.

Trường hợp thêm dấu chấm vào cuối câu như hình thì cách làm sao Anh, Cái này em hỏi thêm đề phòng trường hợp thêm thôi, Công thức của 2 Anh đều đúng rồi.

 

[hongphuong1997]

Excel của bạn có hàm TEXTJOIN không?

em có hàm của Bác @ndu96081631 anh @phuocam oi
Anh hướng dẫn em với

Bài đã được tự động gộp: 2/1/21

Chơi bời tí, thử công thức sau:

=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(A1," "," "),","," "))," ",",")," "," ")

anh oi, em cũng đang dùng hàm này, nhưng em thấy nó hơi dài dài một chút có cách nào rút gọn được không hở anh?

 

[dazkangel]

em có hàm của Bác @ndu96081631 anh @phuocam oi
Anh hướng dẫn em với

Bài đã được tự động gộp: 2/1/21

anh oi, em cũng đang dùng hàm này, nhưng em thấy nó hơi dài dài một chút có cách nào rút gọn được không hở anh?

Đây là cách để khống chế khoảng trắng mà, nếu làm ngắn thì khi chuối có khoảng trắng mình loại bỏ mất luôn. Phải chấp nhận.
Nhưng biết đâu có người làm ngắn hơn em đợi xem.