Xóa chuỗi ký tự trong ô (2 người xem)

[huy vu]

Em có chuỗi ký tự như file đính kèm, e muốn xóa hết chuỗi "Tổng theo thiết bị:" và " (*)" trong ô đi
Em có record marco Find and replace, làm thử ở cột K để thay thế:

Sub Macro2()
    [K:K].Replace What:="T?ng theo thi?t b?:", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    [K:K].Replace What:=" (*", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
End Sub[CODE]

[/CODE]
Em hỏi có cách nào để thay cùng lúc cả 2 điều kiện không? không phải chạy 2 dòng code (em thử dùng And mà không được).
Hoặc có cách nào khoa học hơn (Không dùng find and replace)? mong anh/chị chỉ giúp

 

[Quang_Hải]

Em có chuỗi ký tự như file đính kèm, e muốn xóa hết chuỗi "Tổng theo thiết bị:" và " (*)" trong ô đi
Em có record marco Find and replace, làm thử ở cột K để thay thế:

Sub Macro2()
    [K:K].Replace What:="T?ng theo thi?t b?:", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    [K:K].Replace What:=" (*", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
End Sub

Em hỏi có cách nào để thay cùng lúc cả 2 điều kiện không? không phải chạy 2 dòng code (em thử dùng And mà không được).
Hoặc có cách nào khoa học hơn (Không dùng find and replace)? mong anh/chị chỉ giúp

Chỉ có thể là gọn hơn chứ không thể 1 câu lệnh

Sub Macro2()
   With [K:K]
      .Replace "*:", ""
      .Replace " (*", ""
   End With
End Sub

 

[TrungChinhs]

Em có chuỗi ký tự như file đính kèm, e muốn xóa hết chuỗi "Tổng theo thiết bị:" và " (*)" trong ô đi
Em có record marco Find and replace, làm thử ở cột K để thay thế:
...
Em hỏi có cách nào để thay cùng lúc cả 2 điều kiện không? không phải chạy 2 dòng code (em thử dùng And mà không được).
Hoặc có cách nào khoa học hơn (Không dùng find and replace)? mong anh/chị chỉ giúp

Dùng find and replace là tối ưu rồi và đương nhiên là không dùng được And hay Or

Bạn có thể sửa gọn lại Macro như sau

Sub Macro2()
    With [K:K]
        .Replace "*:", ""
        .Replace " *", ""
    End With
End Sub

 

[huy vu]

Code vô cùng ngắn gọn và hiệu quả, em cảm ơn 2 anh!