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

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- ***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- ĐỊNH MỨC XĂNG XE /DẦU XE CHO DOANH NGHIỆP VẬN TẢI FILE QUẢN LÝ QUỸ TIỀN MẶT BẰNG EXCEL Xin chào mọi người, Hôm này Đỉnh muốn chia sẻ cho các bạn 2 cuốn sách cực kỳ Cả nhà có mẹo gì để tẩy mực máy in trên giấy A4 không ạ? Chỉ tẩy con số ở Hỗ trợ hàm tìm kiếm, xuất dữ liệu Lỗi #N/A trong hàm IMPORTXML Mong các cao nhân giúp đỡ Hi mọi người, Hi mọi người, Em chuyển file exel sang dạng ảnh bị lỗi font chữ ( Xem thêm