Bỏ ký tự [ ] trong ô Excel (2 người xem)

[quanglenb]

Xin chào các anh/chị
Xin được các anh/chị giúp em vấn đề sau:
Ô trong cột F và G có nội dung chứa ký tự [ ]
Cụ thể như sau: Máy đào 0,8m3 [1] Cái;Máy ủi 108CV [1] Cái;Máy bơm nước 20HP [3] Cái;
Giờ em muốn bỏ các ký tự [ ] trong cột F và G đó đi, sau khi bỏ ký tự đi sẽ có dấu : sau ký tự đó, sau ký tự ";" sẽ có thêm dấu cách và cuối nội dung ô đó sẽ bỏ dấu ";" đi
Cụ thể kết quả mong muốn là:
Máy đào 0,8m3:1 Cái; Máy ủi 108CV :1 Cái; Máy bơm nước 20HP: 3 Cái
Tương tự như trong ô G cũng bỏ ký tự và thay thế theo quy luật nêu trên.
Xin được anh/chị giúp em.
Em xin chân thành cảm ơn!

 

[befaint]

Nhấn Ctrl + H rồi điền cái cần điền vào là được thôi mà.

 

[quanglenb]

Nhấn Ctrl + H rồi điền cái cần điền vào là được thôi mà.

Vâng, em cảm ơn thầy Trong [ ] là các số khác nhau vậy nếu dùng Ctrl + H thị cụ thể hơn như thê nào vậy ạ?

 

[Ba Tê]

Quét chọn vùng (ví dụ F3:G19) rồi chạy code

Public Sub Gpe()
Dim Cll As Range, Txt As String
For Each Cll In Selection
    If Cll <> Empty Then
        Txt = Replace(Replace(Cll.Value, " [", ": "), "]", "")
        If Right(Txt, 1) = ";" Then Txt = Left(Txt, Len(Txt) - 1)
        Cll.Value = Txt
    End If
Next
End Sub

 

[quanglenb]

Quét chọn vùng (ví dụ F3:G19) rồi chạy code

Public Sub Gpe()
Dim Cll As Range, Txt As String
For Each Cll In Selection
    If Cll <> Empty Then
        Txt = Replace(Replace(Cll.Value, " [", ": "), "]", "")
        If Right(Txt, 1) = ";" Then Txt = Left(Txt, Len(Txt) - 1)
        Cll.Value = Txt
    End If
Next
End Sub

Em cảm ơn thầy.
Nhờ thầy giúp em chỉnh lại code để sau dấu ";" có dấu cách.
Em chạy code thầy giúp: được kết quả như hình 1.
Hình 2: Kết quả mong muốn.

Hình1:


Hình 2

 

[Ba Tê]

Em cảm ơn thầy.
Nhờ thầy giúp em chỉnh lại code để sau dấu ";" có dấu cách.
Em chạy code thầy giúp: được kết quả như hình 1.
Hình 2: Kết quả mong muốn.

Hình1:
View attachment 257842

Hình 2

View attachment 257843

Thay dấu ";" thành "; ", nếu chạy code nhiều lần thì sẽ thành nhiều dấu cách sau Chấm phẩy.
Dùng Trim() của Excel xử lý.

Public Sub Gpe()
Dim Cll As Range, Txt As String
For Each Cll In Selection
    If Cll <> Empty Then
        Txt = Replace(Replace(Replace(Cll.Value, " [", ": "), "]", ""), ";", "; ")
        If Right(Txt, 2) = "; " Then Txt = Left(Txt, Len(Txt) - 2)
        Cll.Value = Application.WorksheetFunction.Trim(Txt)
    End If
Next
End Sub

 

[quanglenb]

Thay dấu ";" thành "; ", nếu chạy code nhiều lần thì sẽ thành nhiều dấu cách sau Chấm phẩy.

Public Sub Gpe()
Dim Cll As Range, Txt As String
For Each Cll In Selection
    If Cll <> Empty Then
        Txt = Replace(Replace(Replace(Cll.Value, " [", ": "), "]", ""), ";", "; ")
        If Right(Txt, 2) = "; " Then Txt = Left(Txt, Len(Txt) - 2)
        Cll.Value = Txt
    End If
Next
End Sub

Dạ! vậy chạy code sau đó dùng Ctr+H để thay thế ";" bởi "; " được chứ thầy?

 

[Ba Tê]

Dạ! vậy chạy code sau đó dùng Ctr+H để thay thế ";" bởi "; " được chứ thầy?

Đã giải quyết ở bài trên (#6) rồi.
Chỉ có 1 đống Names rác là chưa giải quyết.

 

[quanglenb]

Đã giải quyết ở bài trên (#6) rồi.
Chỉ có 1 đống Names rác là chưa giải quyết.

Vâng em cảm ơn thầy!