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) (7 người xem)

bicutit · 21/11/20

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 · 21/11/20

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

batman1 · 21/11/20

Dùng SUBSTITUTE để thay "," bằng " và". Nhưng do ta không thay hết mà chỉ thay dấu phẩy "," cuối cùng nên phải cung cấp tham số cuối cùng là chỉ số của dấu phẩy "," cuối cùng cần thay thế. Chỉ số cuối cùng về mặt số bằng số lượng dấu phẩy trong chuỗi. Để tính số lượng dấu phẩy thì dùng LEN(A1)-LEN(SUBSTITUTE(A1,",",""))

Mã:

=SUBSTITUTE(A1,","," và",LEN(A1)-LEN(SUBSTITUTE(A1,",","")))

bicutit · 21/11/20

batman1 đã viết:
Dùng SUBSTITUTE để thay "," bằng " và". Nhưng do ta không thay hết mà chỉ thay dấu phẩy "," cuối cùng nên phải cung cấp tham số cuối cùng là chỉ số của dấu phẩy "," cuối cùng cần thay thế. Chỉ số cuối cùng về mặt số bằng số lượng dấu phẩy trong chuỗi. Để tính số lượng dấu phẩy thì dùng LEN(A1)-LEN(SUBSTITUTE(A1,",",""))

Mã:

=SUBSTITUTE(A1,","," và",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 · 21/11/20

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 · 2/1/21

batman1 đã viết:
Dùng SUBSTITUTE để thay "," bằng " và". Nhưng do ta không thay hết mà chỉ thay dấu phẩy "," cuối cùng nên phải cung cấp tham số cuối cùng là chỉ số của dấu phẩy "," cuối cùng cần thay thế. Chỉ số cuối cùng về mặt số bằng số lượng dấu phẩy trong chuỗi. Để tính số lượng dấu phẩy thì dùng LEN(A1)-LEN(SUBSTITUTE(A1,",",""))

Mã:

=SUBSTITUTE(A1,","," và",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 · 2/1/21

hongphuong1997 đã viết:
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 · 2/1/21

hongphuong1997 đã viết:
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,,,d ,,,,,,,

e,,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 · 2/1/21

phuocam đã viết:
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 · 2/1/21

huonglien1901 đã viết:
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:

Mã:

=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 · 2/1/21

phuocam đã viết:
Trong file có UDF TEXTJOIN. Thử công thức mảng:

Mã:

=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 · 2/1/21

huonglien1901 đã viết:
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 · 2/1/21

phuocam đã viết:
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 · 2/1/21

huonglien1901 đã viết:
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 · 2/1/21

huonglien1901 đã viết:
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:

Mã:

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

huonglien1901 · 2/1/21

dazkangel đã viết:
Chơi bời tí, thử công thức sau:

Mã:

=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 · 2/1/21

huonglien1901 đã viết:
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 · 2/1/21

phuocam đã viết:
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 đã viết:
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 · 2/1/21

phuocam đã viết:
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

dazkangel đã viết:
Chơi bời tí, thử công thức sau:

Mã:

=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 · 2/1/21

hongphuong1997 đã viết:
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.

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) (7 người xem)

Người dùng đang xem chủ đề này

Search Sexy Womans from your city for night

/(hông là gì!

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

Search Sexy Womans from your city for night

Ăn cùng góc phố

Thành viên tiêu biểu

Thành viên mới

Supreme Сasual Dating - Verified Maidens

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên mới

File đính kèm

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên mới

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên mới

<New Horizons>

GPE là ngôi nhà thứ 2 của tôi!!!

<New Horizons>

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên tiêu biểu

<New Horizons>

Đếm ngược thời gian