Bỏ dữ liệu có điều kiện

[hungndcbq]

Các anh chị cho em hỏi cách bỏ dữ liệu có điều kiện như trong file em gửi ạ! Em cảm ơn ạ!

 

[Hoàng Tuấn 868]

Các anh chị cho em hỏi cách bỏ dữ liệu có điều kiện như trong file em gửi ạ! Em cảm ơn ạ!

Các điều kiện này có theo quy luật nào không bạn nhỉ?

 

[HieuCD]

Các anh chị cho em hỏi cách bỏ dữ liệu có điều kiện như trong file em gửi ạ! Em cảm ơn ạ!

Dùng hàm tự tạo

Function GopTrung(ByVal iText As String) As String
  Dim S, T, j&, tmp$
  S = Split(iText, ",")
  If UBound(S) = 0 Then GopTrung = iText: Exit Function
  For j = UBound(S) To 0 Step -1
    T = Split(S(j), "(")
    If tmp <> T(1) Then tmp = T(1) Else S(j) = T(0)
  Next j
  GopTrung = Join(S, ",")
End Function

 

[hungndcbq]

Dùng hàm tự tạo

Function GopTrung(ByVal iText As String) As String
  Dim S, T, j&, tmp$
  S = Split(iText, ",")
  If UBound(S) = 0 Then GopTrung = iText: Exit Function
  For j = UBound(S) To 0 Step -1
    T = Split(S(j), "(")
    If tmp <> T(1) Then tmp = T(1) Else S(j) = T(0)
  Next j
  GopTrung = Join(S, ",")
End Function

Em cảm ơn ạ! thật tuyệt vời!