Lấy dữ liệu tổng hợp khi dữ liệu thay đổi

Chia sẻ bởi:hands

★★★★★

‹ Tính Tổng từng số lượng nguyên vật... Đặt tên hàm tự tạo khi lập... ›

Quảng cáo

Em chào Anh/Chị

Em có sheet 01 và sheet 03, dữ liệu của em ở sheet 01 là dữ liệu thay đổi ạ.
Em nhờ Anh/Chị xem có cách nào tự động lấy thông tin ở sheet 01 sang sheet 03 theo điều kiện ạ. Lý do vì sheet 01 của em thay đổi ạ, em không biết cách nào có thể tự động lấy dữ liệu sang sheet 03 không ạ.

Em gửi ví dụ cụ thể ạ
Số lượng cột L sheet 01 có thể thay đổi ạ, nếu có số lượng là 1 thì thông tin em cần lấy sang bên sheet 03 là 1 ạ, nếu 02 thì sang 03 là 2 lần ạ, tham chiếu ở đây là theo ô ở cột C ạ,

Thông tin sheet 01 ạ
GPE

STT
Họ và tên
Mã số thuế
Loại
Số CMND,
Hộ chiếu
Ủy quyền
(tích dấu "x")
Thu nhập
chịu thuế
Số NPT
HTKK tự động

1
Trần Thị Ngân8000
8480019933
CMND
168268362

197,445,191
2

2
Mai Thị Hòa8001
8148234420
CMND
168303681

210,267,948
2

3
Nguyễn Thị Huê8008
8010696479
Thẻ CCCD
035187004382

174,153,395
1

Em muốn nhờ Anh/Chị có nút tự động lấy sang thông tin ở sheet 03 ạ
GPE
GPE

STT
Họ và tên
Mã số thuế

1
Trần Thị Ngân8000
8480019933

2
Trần Thị Ngân8000
8480019933

3
Mai Thị Hòa8001
8148234420

4
Mai Thị Hòa8001
8148234420

5
Nguyễn Thị Huê8008
8010696479

Em xin cám ơn Anh/Chị nhiều ạ
Em gửi File đính kèm, Nhờ Anh/Chị giúp em ạ

Trong khi chờ đợi các giải pháp khác. hãy thử tham khảo đoạn code sau:

Option Explicit

Sub Them()
Dim i&, j&, Lr&, t&
Dim Arr(), KQ()
Dim Ws As Worksheet, Sh As Worksheet
Set Ws = Sheets("01")
Lr = Ws.Cells(Rows.Count, 2).End(xlUp).Row - 1
Arr = Ws.Range("A4:L" & Lr).Value
ReDim KQ(1 To UBound(Arr), 1 To 3)
For i = 1 To UBound(Arr)
    If Arr(i, 12) <> Empty And IsNumeric(Arr(i, 12)) Then
        For j = 1 To Arr(i, 12)
            t = t + 1: KQ(t, 1) = t
            KQ(t, 2) = Arr(i, 2)
            KQ(t, 3) = Arr(i, 3)
        Next j
    End If
Next i
If t Then
    Set Sh = Sheets("03")
        Sh.Range("A3").Resize(100000, 3).ClearContents
        Sh.Range("A3").Resize(t, 3) = KQ
End If
MsgBox "Xong"
End Sub

www.giaiphapexcel.com/diendan/threads/l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%95ng-h%E1%BB%A3p-khi-d%E1%BB%AF-li%E1%BB%87u-thay-%C4%91%E1%BB%95i.166315/