lọc dữ liệu trong một cell với các điều kiện và xử lý??? (1 người xem)

[mrhua]

tôi có 1 columm với nhiều cell , trong mỗi cell có dữ liệu là số và chữ liền nhau , dc viết cách nhau bằng dấu; vì dụ vàng,sat:5000n;nhôm:100 tôi phải làm gì để lọc ra và tách chúng ra các cell khác nhau như sau vang 5000 , sat 5000 nhom 100, xin cảm ơn

 

[hoamattroicoi]

tôi có 1 columm với nhiều cell , trong mỗi cell có dữ liệu là số và chữ liền nhau , dc viết cách nhau bằng dấu; vì dụ vàng,sat:5000n;nhôm:100 tôi phải làm gì để lọc ra và tách chúng ra các cell khác nhau như sau vang 5000 , sat 5000 nhom 100, xin cảm ơn

Bạn chạy thử đoạn CODE này xem, tôi không chắc nó có đúng ý bạn không? Biết đâu nó lại có ích cho bạn hoặc tạo cho bạn 1 vài ý tưởng mới, thanks!

Sub TachDL()
Dim k As Long
Dim i As Long
Dim j As Long
Dim nRow As Long
Dim sArr

With Sheets("sheet1")
nRow = .[B65536].End(xlUp).Row
For i = 1 To nRow
sArr = Split(.Range("B" & i).Value, ";")

        For j = LBound(sArr) To UBound(sArr)
            k = k + 1
            .Range("C" & k).Value = sArr(j)
        Next j
        
Next i
End With
End Sub

 

[mrhua]

cảm ơn bạn, nếu chỉ lọc như thế thì có thể dung convert to columm cũng dc nhung tôi muốn nó lọc ra, tách ra và phải phát hiện nếu có trùng thi tính tồng như trong file tôi đính kèm đây

 

[mrhua]

nó phải tách dc và tổng hợp khi trùng