Bạn nên đưa file kèm giải thích hết ý và kết quả mẫu muốn có (nhập thủ công) trong file mới có người giúp bạn được. Thấy cái hình ai biết gì đâu.
Mình có 1 cái bảng (tên là PXVT) như này:
Rốt cuộc là bạn không biết cách gởi File đính kèm hay sao?
Mình muốn chuyển số xe của 1 máy trong các sheets của bảng PXVT sang bảng Sổ phân xe. ( ví dụ như là máy xúc PC10) Mình mới bắt tay vào làm đã bị mắc chỗ này rồi.
Cái này mà viết công thức thì tôi chưa hình dung được.
File đính kèm của mình đây. Thanks!
Theo chỉ dẫn của pro mình đã mở được và bạn đã làm được đúng như ý mình định làm, nhưng mà Pro có thể chỉ cho mình cách thực hiện như nào được ko? Còn về câu hỏi của bạn vì hôm trước mình đảo cột để thử công thức quên chưa đảo lại.
Mở file, Ấn Alt+F11 xem code trong Module và code trong Sheet.
Được VOI thì phải chịu mất 2 Bà Trưng chứ, chả nhẽ code đáp ứng được công việc của bạn 1 cách hoàn hảo mà nhấn thêm nút Enable Macro với bạn nó phiền phức thế sao???
Cái này viết thành hàm tự tạo sẽ hay hơn anh à! Lúc trước em có viết hàm JointText, chắc là dùng được trong trường hợp này đây:
Function JoinText(ByVal Sep As String, ByVal IgnoreBlanks As Boolean, ParamArray sArray()) As String
Dim tmpArr, SubArr, Arr(), Item, n As Long, tmp As String
On Error Resume Next
For Each SubArr In sArray
tmpArr = SubArr
If TypeName(tmpArr) <> "Variant()" Then
tmp = IIf(TypeName(tmpArr) = "Error", "", Trim(CStr(tmpArr)))
If IgnoreBlanks = False Or Len(tmp) Then
n = n + 1
ReDim Preserve Arr(1 To n)
Arr(n) = tmp
End If
Else
For Each Item In tmpArr
tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item)))
If IgnoreBlanks = False Or Len(tmp) Then
n = n + 1
ReDim Preserve Arr(1 To n)
Arr(n) = tmp
End If
Next
End If
Next
If n Then JoinText = Join(Arr, Sep)
End Function=JoinText("; ",TRUE,(IF(VT4!$A$4:$A$33=$B3,VT4!$B$4:$B$33,"")&IF(VT5!$A$4:$A$33=$B3,VT5!$B$4:$B$33,"")))Nối chuổi không phải là thế mạnh của công thức nên chắc chắn sẽ không có cách nào ngoài cách dùng VBA đâu
=JoinText("; ",TRUE,IF(VT4!$A$4:$A$33=$B3,VT4!$B$4:$B$33,""),IF(VT5!$A$4:$A$33=$B3,VT5!$B$4:$B$33,""))
Tại A1 bạn nhập thử công thức: =OFFSET(C2;COUNTA(C2:C1000)-1;0)
ở dòng List separator --> Apply -->OK -->Apply --> OK.
- Gõ chuổi gốc vào cell A1 (ví dụ là ABAJGDONCBBABCAKLHNSLKHALFKUEHACBAKJHSBABC)
=(LEN(A1)-LEN(SUBSTITUTE(A1,B1,"")))/LEN(B1)
