Xin trợ giúp lọc dữ liệu

[longlt08]

Xin chào ACE trên GPE !
Tôi có file dữ liệu trích xuất cần tách phần ký hiệu và tên gọi riêng để phục vụ cho việc lọc dữ liệu. Nhờ mọi người giúp đỡ (có file gửi kèm theo) Xin cảm ơn mọi người !

 

[concogia]

Xin chào ACE trên GPE !
Tôi có file dữ liệu trích xuất cần tách phần ký hiệu và tên gọi riêng để phục vụ cho việc lọc dữ liệu. Nhờ mọi người giúp đỡ (có file gửi kèm theo) Xin cảm ơn mọi người !

Nếu cấu trúc dữ liệu của bạn đúng như trong bài, bạn có thể sử dụng hàm này

Public Function Tach(Vung, Dk)
    Dim I, Tam
        If Vung = vbNullString Then
            Tach = vbNullString
            Exit Function
        End If
            I = IIf(InStr(1, Vung, ":") > 0, InStr(1, Vung, ":"), InStr(InStr(1, Vung, "-") + 1, Vung, "-"))
                If Dk = 1 Then
                    Tam = Left(Vung, I - 1)
                Else
                    Tam = Trim(Right(Vung, Len(Vung) - I))
                End If
    Tach = Tam
End Function

Thân

 

[salam]

Xin chào ACE trên GPE !
Tôi có file dữ liệu trích xuất cần tách phần ký hiệu và tên gọi riêng để phục vụ cho việc lọc dữ liệu. Nhờ mọi người giúp đỡ (có file gửi kèm theo) Xin cảm ơn mọi người !

Tạm thời bạn dùng thử trong file kèm nhé.