Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Chào mọi người Chào mọi người em có 1 câu hỏi, mn xem có giải pháp gì giúp em

MinhVuong

Chào mọi người
em có 1 câu hỏi, mn xem có giải pháp gì giúp em không nhé:
- e có 1 đoạn văn bản (có nhiều chữ giống nhau)
- yêu cầu trong đoạn văn bản có chữ nào thì chữ đó chỉ xuất hiện 1 lần trong văn bản đó
- công việc cần làm là tìm ra cách để loại bỏ những chữ bị trùng (cần loại bỏ tất cả những chữ bị trùng đó nhưng để lại 1 lần xuất hiện chữ đó)
vd: có rất nhiều chữ "người" trong văn bản, chỉ giữ 1 chữ "người", các chữ còn lại loại bỏ hết.
hehe
Cám ơn mn :3

DucThanhNguyen

Up file lên ko là bot xoá bài

HuynhTrongTrung

ctrl +H. giữ lại 1 cáu đâu tien thôi. còn nhiêu xoa ""

MinhVuong

Để e viết bài khác nhé. bài này ko sửa dc

DucThanhNguyen

Mình đoán bạn đang làm glossary đúng ko

SonDoan

Nếu không thích kiểu liệt kê mà chỉ cần replace thì xài cái này
Sub ReplaceDupplicateWord()
Dim temp As String, tempWor as String
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For Each Wor In ActiveDocument.Words
tempWor = Trim(Wor)
If tempWor <> "," And tempWor <> "." And tempWor <> ":" And tempWor <> ";" And tempWor <> "(" And tempWor <> ")" And tempWor <> "!" And tempWor <> "?" Then
If Not dic.Exists(tempWor) Then
dic.Add tempWor, tempWor
temp = temp & " " & tempWor
End If
Else
temp = temp & tempWor
End If
Next
Selection.EndKey Unit:=wdStory
Selection.TypeText vbCrLf & temp
Set dic = Nothing
End Sub

Em nhờ mọi người 1 ca khó với :( Em phải gửi Phiếu lương hàng tháng cho mọi Mình cần làm thuê bài tập excel ạ, giúp mình với Nhờ Mọi người giúp đỡ với giúp em giải câu excel ạ Cho em hỏi phần đơn giá em bị sai gì ạ ? Dùng hàm IF và hàm Vlookup Hàm tìm ngày trong khoảng thời gian xác định SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Cần các cao thủ về Mail merge trợ giúp ạ. ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- Xem thêm