Bạn xem vì mình cũng chẳng biết cái này sửa linh tinh à.
Cám ơn bạn snow25, kết quả đúng như mình muốn rồi.
Với dữ liệu trong bài, bạn thử "em" này xem sao:
Public Function ToTe(Cll As Range, Dk)
Dim Tam, I, K, Ktra
For I = 1 To Len(Cll)
If Cll.Characters(I, 1).Font.Color > 0 Then
Tam = Tam & Mid(Cll, I, 1)
Ktra = 1
Else
If Ktra = 1 Then
K = K + 1
If K = Dk Then ToTe = Tam: Exit Function
Ktra = 0
End If
End If
Next I
ToTe = "Not used"
End Function=tote($C2,COLUMN(A:A))Function tachchuoi(chuoi As Range, a As Long) As String
Dim arr
Dim T
T = Split("-" & chuoi, "-")
If a > 0 And a <= UBound(T) Then
arr = T(a)
Else
arr = "Not used"
End If
tachchuoi = arr
End FunctionE2=tachchuoi($D2,COLUMN(A:A))
Tham số cần truyền vào hàm là một chuỗi, và một chỉ số chỉ thị phần cần lấy phân cách bởi dấu gạch ngang, thì khai báo thế này:
Cảm ơn anh nhé.
Bạn nêu vấn đề chưa rỏ, có thể là vầy:
Bạn ơi từ cột hóa chất 2 trở đi, nó lấy luôn cả hóa chất trước đó luôn chứ không tách riêng ra như file trên bài #4 của mình.
Vấn đề của mình là như vậy, trong cột C mình có sử dụng 4 loại hóa chất là: iodine, potassium iodide (2 in 5), dilute hydrochloric acid, dilute sodium bitartrate monohydrate. Mình muốn nhờ mọi người giúp mình tách 4 loại hóa chất này vào các ô Hóa chất 1, Hóa chất 2, Hóa chất 3 ...Hóa chất 7, theo thứ tự các hóa chất xuất hiện trong chuỗi ở cột C. Nếu đã tách hết hóa chất thì các cột hóa chất còn lại sẽ là "Not used".
Các code ở trên chưa đáp ứng yêu cầu, bài 9 tôi gợi ý cho hướng đi (nhưng bạn lại không quan tâm).
Công thức cho E2
=TRIM(MID(SUBSTITUTE($D2,"-",REPT(" ",LEN($D2))),(COLUMNS($D2:D2)-1)*LEN($D2)+1,LEN($D2)))Cám ơn bạn đã gợi ý, mình lúc đầu có dùng mid + search để tách từng chuỗi ra, nhưng lại có nhược điểm là cái chuỗi cuối cùng nó hay có số thứ tự thay đổi tùy theo từng chuỗi của cột C. Mình không làm được nên mới nhờ các bạn trên này giúp đó chứ.
Có vẻ công thức của bạn hoạt động tốt, mình sẽ kiểm tra lại cách vận hành để học hỏi thêm. Cám ơn bạn nhiều
Function TrichChuDo(O As Range, Optional ViTri As Long = 0) As String
Const DauNoi As String = " - "
Dim Chuoi As String, BatDau As Long
Chuoi = O.Value
With O
For i = 1 To Len(Chuoi)
If .Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
If BatDau = 0 Then BatDau = i
Else
If BatDau > 0 Then
If ViTri = 0 Then
TrichChuDo = TrichChuDo & DauNoi & Mid(Chuoi, BatDau, i - BatDau)
Else
If ViTri = 1 Then
TrichChuDo = Mid(Chuoi, BatDau, i - BatDau)
Exit Function
End If
ViTri = ViTri - 1
End If
BatDau = 0
End If
End If
Next
End With
If ViTri > 0 Then
TrichChuDo = "Not used"
Else
TrichChuDo = Mid(TrichChuDo, Len(DauNoi) + 1)
End If
End FunctionD2=trichchudo($C2)E2=trichchudo($C2,COLUMN(A1))Thử làm vầy nhé:
