[Cần giúp đỡ] Điền dữ liệu còn thiếu (2 người xem)

[tuancuong37]

Chào anh/chị
Em cần anh chị hỗ trợ như sau:
1. sheet "baocao" có sẵn 5 loại trái cây.
2.bắt đầu từ t1, điền d/s vào sheet "baocao", cái này tạm ổn.
3. Nhưng từ tháng t2, phát sinh thêm loại trái cây mới "Quýt"
4.Tháng t3, phát sinh thêm 1 loại nữa "Dưa hấu"

=> Em hỏi có cách nào để điền những loại trái cây phát sinh thêm vào sheet "baocao" không, vì có thể tháng này có, tháng sau không có và mình không biết tháng nào sẽ phát sinh trái cây mới so với dữ liệu có sẵn.
Em cảm ơn

 

[lenolim]

Chào anh/chị
Em cần anh chị hỗ trợ như sau:
1. sheet "baocao" có sẵn 5 loại trái cây.
2.bắt đầu từ t1, điền d/s vào sheet "baocao", cái này tạm ổn.
3. Nhưng từ tháng t2, phát sinh thêm loại trái cây mới "Quýt"
4.Tháng t3, phát sinh thêm 1 loại nữa "Dưa hấu"

=> Em hỏi có cách nào để điền những loại trái cây phát sinh thêm vào sheet "baocao" không, vì có thể tháng này có, tháng sau không có và mình không biết tháng nào sẽ phát sinh trái cây mới so với dữ liệu có sẵn.
Em cảm ơn

Cái bạn cần là xem doanh thu từng loại của từng tháng trong Sheet BaoCao phải không

 

[tuancuong37]

Ý mình là
Mình cập nhật doanh số mỗi tháng nhưng phát sinh vấn đề sau:
1. Từ bảng dữ liệu sẵn có và cập nhật doanh số sản phẩm theo từng tháng vào sheet tổng (baocao)
2. Điển hình trong file ví dụ là tháng 2 & 3, mỗi tháng đều phát sinh thêm loại trái cây mới.
3. Vậy làm sao mình biết tháng nào phát sinh thêm loại trái cây mới (so với dữ liệu sẵn có) để cập nhật vào sheet tổng các loại trái cây còn thiếu này

 

[phulien1902]

Chào anh/chị
Em cần anh chị hỗ trợ như sau:
1. sheet "baocao" có sẵn 5 loại trái cây.
2.bắt đầu từ t1, điền d/s vào sheet "baocao", cái này tạm ổn.
3. Nhưng từ tháng t2, phát sinh thêm loại trái cây mới "Quýt"
4.Tháng t3, phát sinh thêm 1 loại nữa "Dưa hấu"

=> Em hỏi có cách nào để điền những loại trái cây phát sinh thêm vào sheet "baocao" không, vì có thể tháng này có, tháng sau không có và mình không biết tháng nào sẽ phát sinh trái cây mới so với dữ liệu có sẵn.
Em cảm ơn

Vậy bài toán của bạn là cập nhật các loại hoa quả từ cột B của 12 Sheets( tương đương 12 tháng) vào cột B của Sheets("baocao") nhưng phải là duy nhất đúng không?

 

[tuancuong37]

mình không biết giải thích sao nữa, cũng tạm gọi là dữ liệu duy nhất
Ví dụ như
Dữ liệu sẵn có gồm: Táo, Cam, Bưởi sheet "baocao"
Sang tháng 1 bán thêm Chuối
Tháng 2 bán vừa có chuối và bán thêm Quýt
Tháng 3 chỉ bán Táo, Cam, Bưởi

Và mình phải cập nhật dữ liệu hàng tháng vào "baocao" nhưng làm sao biết tháng nào phát sinh cái mới/cái nào không...

 

[phulien1902]

mình không biết giải thích sao nữa, cũng tạm gọi là dữ liệu duy nhất
Ví dụ như
Dữ liệu sẵn có gồm: Táo, Cam, Bưởi sheet "baocao"
Sang tháng 1 bán thêm Chuối
Tháng 2 bán vừa có chuối và bán thêm Quýt
Tháng 3 chỉ bán Táo, Cam, Bưởi

Và mình phải cập nhật dữ liệu hàng tháng vào "baocao" nhưng làm sao biết tháng nào phát sinh cái mới/cái nào không...

Có lẽ bạn dùng VBA xem sao, nếu bạn đồng ý, lát nữa tôi gửi File bạn tham khảo.

 

[tuancuong37]

Có lẽ bạn dùng VBA xem sao, nếu bạn đồng ý, lát nữa tôi gửi File bạn tham khảo.

nếu vậy thì tốt quá, bạn gửi giúp mình nhé, mình cảm ơn

 

[phulien1902]

Bạn thử:

Option Explicit
Sub Update_Fruit()
    Dim ws As Worksheet, Sh As Worksheet, LR As Long, LR1 As Long
    Dim Arr As Variant, d As Object, i As Long, Rng As Range, k As Long
    Set d = CreateObject("Scripting.Dictionary")
    Set Sh = Sheets("baocao")
    Sheets("baocao").Range("A4:B1000").ClearContents
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If ws.Name <> "baocao" Then
            LR1 = ws.Range("A" & Rows.Count).End(3).Row
            LR = Sh.Range("Q" & Rows.Count).End(3).Row
            ws.Range("B3:B" & LR1).Copy Sh.Range("Q" & LR + 1)
        End If
    Next ws
    LR = Range("Q" & Rows.Count).End(3).Row
    Arr = Range("Q4:Q" & LR)
    For i = 1 To UBound(Arr, 1)
        d(Arr(i, 1)) = 1
    Next i
    Range("B4").Resize(d.Count) = Application.Transpose(d.keys)
    Sheets("baocao").Range("Q4:Q1000").Clear
    Set Rng = Sheets("baocao").Range("A4:B" & Sheets("baocao").Range("B60000").End(3).Row)
    For i = 1 To Rng.Rows.Count
        If Rng(i, 2) <> "" Then
            k = k + 1
            Rng(i, 1) = k
        Else
            Rng(i, 1) = ""
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[tuancuong37]

Bạn thử:

Option Explicit
Sub Update_Fruit()
    Dim ws As Worksheet, Sh As Worksheet, LR As Long, LR1 As Long
    Dim Arr As Variant, d As Object, i As Long, Rng As Range, k As Long
    Set d = CreateObject("Scripting.Dictionary")
    Set Sh = Sheets("baocao")
    Sheets("baocao").Range("A4:B1000").ClearContents
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If ws.Name <> "baocao" Then
            LR1 = ws.Range("A" & Rows.Count).End(3).Row
            LR = Sh.Range("Q" & Rows.Count).End(3).Row
            ws.Range("B3:B" & LR1).Copy Sh.Range("Q" & LR + 1)
        End If
    Next ws
    LR = Range("Q" & Rows.Count).End(3).Row
    Arr = Range("Q4:Q" & LR)
    For i = 1 To UBound(Arr, 1)
        d(Arr(i, 1)) = 1
    Next i
    Range("B4").Resize(d.Count) = Application.Transpose(d.keys)
    Sheets("baocao").Range("Q4:Q1000").Clear
    Set Rng = Sheets("baocao").Range("A4:B" & Sheets("baocao").Range("B60000").End(3).Row)
    For i = 1 To Rng.Rows.Count
        If Rng(i, 2) <> "" Then
            k = k + 1
            Rng(i, 1) = k
        Else
            Rng(i, 1) = ""
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

hj cảm ơn bạn nhiều nhiều nha :x