tìm các cặp ký tự giống nhau và xoá bớt chúng trong cell

[viettuan49a]

tôi có một ô excell A1 có dạng như sau:
MI,LI,MN,NN,MI,NN,MI (có thể có nhiều cặp ký tự hơn)
tôi muốn xoá các cặp ký tự giống nhau và cho ra ô A2: MI,LI,MN,NN.
nhờ các cao nhân chỉ giáo

 

[ndu96081631]

tôi có một ô excell A1 có dạng như sau:
MI,LI,MN,NN,MI,NN,MI (có thể có nhiều cặp ký tự hơn)
tôi muốn xoá các cặp ký tự giống nhau và cho ra ô A2: MI,LI,MN,NN.
nhờ các cao nhân chỉ giáo

Tham khảo bài liên quan tại đây:
http://www.giaiphapexcel.com/forum/...-tìm-và-xóa-duplicate-words-trong-1-chuỗi-từ&

 

[viettuan49a]

anh ơi
em có một dãy các ký tự như sau:
: MI,LI,DI,MN,XI,DI,MI,LI
nếu dùng công thức anh hướng dẫn không ra được kết quả mong muốn,em muốn ra như này:
: MI,LI,DI,MN,XI
anh xem lại hộ em được không.

 

[ndu96081631]

anh ơi
em có một dãy các ký tự như sau:
: MI,LI,DI,MN,XI,DI,MI,LI
nếu dùng công thức anh hướng dẫn không ra được kết quả mong muốn,em muốn ra như này:
: MI,LI,DI,MN,XI
anh xem lại hộ em được không.

Áp dụng không được để cứ đưa nguyên file lên đây (bao gồm cả công thức mà bạn nói không được ấy)

 

[viettuan49a]

khong ra duoc ket qua nhu mong muon

anh xem hộ em.em không sửa được

 

[viettuan49a]

Function xoatrung(Text As String, Optional Sep) As String
Dim i As Long, Temp
On Error Resume Next
If IsMissing(Sep) Then
xoatrung = Left(Text, 1)
For i = 1 To Len(Text)
If InStr(xoatrung, Mid(Text, i, 1)) = 0 Then xoatrung = xoatrung & Mid(Text, i, 1)
Next i
Else
Temp = Split(WorksheetFunction.Trim(Replace(Text, CStr(Sep), " ")), " ")
With CreateObject("Scripting.Dictionary")
For i = 0 To UBound(Temp)
.Add Temp(i), ""
Next i
xoatrung = Join(.Keys, Sep)
End With
End If
End Function

 

[ndu96081631]

anh xem hộ em.em không sửa được

Trời... đâu ra cái dấu 2 chấm ở trước chuổi thế chứ ---> Xóa nó đi là được rồi
Còn nhất định giữ nguyên dấu 2 chấm ở đầu chuổi thì phải tùy biến chút xíu chứ
Xem file

 

[viettuan49a]

em cám ơn anh.
Anh cho em hỏi một điều nữa:
em có một bảng data, em dùng lệnh vlookup để xuất dữ liệu theo ngày, dưới cùng có một hàng tổng
do các ngày số liệu không giống nhau, nên số hàng của bảng xuất không giống nhau
hiện em đang phải để khoảng 100 dòng rồi đến dòng tổng, ngày nào cũng phải hide để in ra.ngày hôm sau lại show rồi lại hide để in
có cách nào giúp tự ẩn các dòng có ký tự "" đi không

 

[ndu96081631]

em cám ơn anh.
Anh cho em hỏi một điều nữa:
em có một bảng data, em dùng lệnh vlookup để xuất dữ liệu theo ngày, dưới cùng có một hàng tổng
do các ngày số liệu không giống nhau, nên số hàng của bảng xuất không giống nhau
hiện em đang phải để khoảng 100 dòng rồi đến dòng tổng, ngày nào cũng phải hide để in ra.ngày hôm sau lại show rồi lại hide để in
có cách nào giúp tự ẩn các dòng có ký tự "" đi không

Hỏi 1 câu chẳng liên quan đến nội dung Topic ---> Có thể bài này sẽ bị xóa mất thôi
Mở topic khác mà hỏi tiếp nhé

 

[NguyenNgocSon]

Giờ mình muốn xóa ký tự như sau:
Ký tự gốc: 12.3.....3.5.....3...6...
Kết quả muốn: 12.3.3.5.3.6
Nghĩa là nếu có nhiều hơn 1 ký tự "." liên tiếp sẽ xóa đi để lại 1 ký tự thôi
Cám ơn !

 

[ndu96081631]

Giờ mình muốn xóa ký tự như sau:
Ký tự gốc: 12.3.....3.5.....3...6...
Kết quả muốn: 12.3.3.5.3.6
Nghĩa là nếu có nhiều hơn 1 ký tự "." liên tiếp sẽ xóa đi để lại 1 ký tự thôi
Cám ơn !

Cái này quá dễ. Quy trình như sau:
- Biến dấu chấm thành khoảng trắng (dùng hàm SUBSTITUTE)
- Trim kết quả
- Cuối cùng biến khoảng trắng thành dấu chấm

 

[NguyenNgocSon]

Cái này quá dễ. Quy trình như sau:
- Biến dấu chấm thành khoảng trắng (dùng hàm SUBSTITUTE)
- Trim kết quả
- Cuối cùng biến khoảng trắng thành dấu chấm

Nhưng nếu trường hợp dấu chấm được thay bằng dấu Space thì có vẻ không ổn bác ah ?

 

[ndu96081631]

Nhưng nếu trường hợp dấu chấm được thay bằng dấu Space thì có vẻ không ổn bác ah ?

Không ổn chổ nào? Bạn cho ví dụ xem

 

[NguyenNgocSon]

Không ổn chổ nào? Bạn cho ví dụ xem

Ví dụ sau: 2 3 5 3 6 7
Kết quá: 2 3 5 3 6 7

 

[hungpecc1]

Nhưng nếu trường hợp dấu chấm được thay bằng dấu Space thì có vẻ không ổn bác ah ?

ý bạn nói đến trường hợp : "1.2.3.. 24... 4.. 4. 4.--> thì bạn vẫn muốn giữ khoảng trắng trong các số đúng không ?
Nếu vậy tham khảo hàm này xem :

Function TrimDots(Str$) As String    
   With CreateObject("VBscript.Regexp")        
       .Global = True        
      .Pattern = "\.+"        
       TrimDots = .Replace(Str, ".")   
    End With
End Function

 

[ndu96081631]

Ví dụ sau: 2 3 5 3 6 7
Kết quá: 2 3 5 3 6 7

Vậy đầu vào và đầu ra khác nhau chổ nào?
Bạn cứ đưa file dữ liệu lên đây, ghi rõ kết quả bạn cần cho dễ... Vì coi chừng càng mô tả càng hổng hiểu
----------------

ý bạn nói đến trường hợp : "1.2.3.. 24... 4.. 4. 4.--> thì bạn vẫn muốn giữ khoảng trắng trong các số đúng không ?
Nếu vậy tham khảo hàm này xem :

Dù là như vậy cũng chả cần đến code. Công thức thường cũng làm được, bạn tin không?

 

[hungpecc1]

Ví dụ sau: 2 3 5 3 6 7
Kết quá: 2 3 5 3 6 7

Nếu mà như trên thì dùng lệnh Trim() là đủ mà Trim(" 2 3 4 ") = "2 3 4" <----

 

[hungpecc1]

----------------

Dù là như vậy cũng chả cần đến code. Công thức thường cũng làm được, bạn tin không?

Anh nói như vậy chắc chắn là dùng được công thức excel, để em suy ngẫm, anh đừng đưa ra đáp án vội nhé!

 

[NguyenNgocSon]

Vậy đầu vào và đầu ra khác nhau chổ nào?
Bạn cứ đưa file dữ liệu lên đây, ghi rõ kết quả bạn cần cho dễ... Vì coi chừng càng mô tả càng hổng hiểu
----------------

Dù là như vậy cũng chả cần đến code. Công thức thường cũng làm được, bạn tin không?

Đây là file dữ liệu
Kết quả mong muốn như trong file

 

[hungpecc1]

Anh nói như vậy chắc chắn là dùng được công thức excel, để em suy ngẫm, anh đừng đưa ra đáp án vội nhé!

Nghĩ được công thức này :

=SUBSTITUTE(SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(C16," ","#"),"."," "))," ","."),"#"," ")

<-------------