Loại bỏ nhiều chuỗi con trong chuỗi lớn

[otootin]

Vậy cú pháp nó là như thế nào ah?

Cú pháp ở dòng đầu tiên của Function
=ConLai( Danh sách ghế, Ghế đã bán )

View more random threads:

• Xin các pro excel giúp mình xử lý file này vơi
• Giúp em với mọi người ơi
• Làm sao tạo trang mặc định cho ễcl
• Lỗi thi trộn thư
• Ngày tháng trong excel quá khó xin tư vấn.
• Cách lấy dữ liệu so le theo từng dòng
• Cao thủ excel giúp em với
• Đếm Sản phẩm tại các Cửa hàng khác nhau
• Mẹo lách thuế TNDN và GTGT
• đặt số trên hình vẽ vào ô nhất định

[newbiess]

File của mình đây. Trong sheet 18.4 mình muốn tìm ra giá trị số ghế xe còn trống ah.

Dùng hàm tự tạo này xem sao
Cú pháp: SoGhe( Danh sách vị trí, Vị trí đã bán )

Public Function SoGhe(ToanBo As String, DaBan As String) As String
Dim Tam, i As Long
Tam = Split(ToanBo, ",")

For i = 0 To UBound(Tam)
If InStr("," & DaBan & ",", "," & Tam(i) & ",") Then
Tam(i) = ""
End If
Next i

SoGhe = Replace(Application.Trim(Join(Tam, " ")), " ", ", ")
End Function

[thomtomtit]

Dùng hàm tự tạo này xem sao
Cú pháp: SoGhe( Danh sách vị trí, Vị trí đã bán )

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Vấn đề đã được giải quyết. Chân thành cảm ơn bạn rất nhiều

[phamhuanmnko]

Góp vui thêm một hàm tự tạo
Cách này cắt chuỗi con rồi thay thế trong chuỗi mẹ

Public Function ConLai(ToanBo As String, DaBan As String) As String
Dim VeBan
ToanBo = ToanBo & ","
For Each VeBan In Split(DaBan, ",")
ToanBo = Replace(ToanBo, VeBan & ",", "")
Next
If Right(ToanBo, 1) = "," Then ConLai = Left(ToanBo, Len(ToanBo) - 1)
End Function

[huongnguyen123]

Sao không thấy ai dùng RegExp nhỉ?

[khoitrang1988]

Sao không thấy ai dùng RegExp nhỉ?

Có biết đâu mà dùng, nhờ anh làm mẫu một bài, hehehe!

[nutanguyen04]

Có biết đâu mà dùng, nhờ anh làm mẫu một bài, hehehe!

Tôi cũng không rành lắm nhưng tôi biết là được
Đại khái với chuỗi "đã bán" ấy, ta Replace dấu phẩy thành "|" rồi cho vào Pattern
Làm sơ qua:

Function StringSubtract(ByVal s1 As String, s2 As String, ByVal sep As String) As String
  Dim regEx As Object
  Dim sPatt As String, ret As String
  On Error Resume Next
  sPatt = Replace(s2, sep, "|")
  ret = Replace(s1, sep, Space(1))
  Set regEx = CreateObject("VBScript.RegExp")
  regEx.Global = True
  regEx.Pattern = "\" & sPatt
  ret = regEx.Replace(ret, "")
  ret = WorksheetFunction.Trim(ret)
  StringSubtract = Replace(ret, Space(1), sep)
End Function

Công thức tại K6:

=StringSubtract(D6,H6, ",")

[bookseo007]

Góp vui thêm một hàm tự tạo
Cách này cắt chuỗi con rồi thay thế trong chuỗi mẹ

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Vậy cú pháp nó là như thế nào ah?

[hajnguyen]

Em có 1 ô giá trị là A1,A3,B5,B6,C7 và 1 ô giá trị là A1,B6,C7 em muốn tính ra xem trong 2 ô này thì có giá trị nào là không trùng nhau thì dùng công thức nào ah? Như theo ví dụ thì cái ô em cần tìm là giá trị A3,B5.
Cảm ơn mọi người nhiều.

[trungtrinh]

Em có 1 ô giá trị là A1,A3,B5,B6,C7 và 1 ô giá trị là A1,B6,C7 em muốn tính ra xem trong 2 ô này thì có giá trị nào là không trùng nhau thì dùng công thức nào ah? Như theo ví dụ thì cái ô em cần tìm là giá trị A3,B5.
Cảm ơn mọi người nhiều.

Vậy file của bạn đâu?
(hỏi file là muốn xem thử nên dùng cách nào: VBA hay công thức?)