Code Pivot để lọc data (1 người xem)

[chickencamau]

Nhờ mọi người giúp với, mình muốn lấy data bằng vba không cần sử dụng pivot như file đính kèm thì làm thế nào ạ??

 

[phulien1902]

Nhờ mọi người giúp với, mình muốn lấy data bằng vba không cần sử dụng pivot như file đính kèm thì làm thế nào ạ??

Bạn thử với:

Option Explicit
Sub abc()
    Dim i As Long, r As Range
    Application.ScreenUpdating = False
    Columns(4).Copy Columns(7)
    Columns(4).Delete
    For i = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
        If Cells(i - 1, 2) <> Cells(i, 2) Then
            Rows(i).Insert
            Cells(i, 2) = Cells(i, 2).Offset(-1) & " Total"
            Cells(i, 2).Font.Bold = True
        End If
    Next
    With Sheets("data")
        For Each r In .Columns(6).SpecialCells(2).Areas
            With r(r.Count + 1)
                .Formula = "=sum(" & r.Address & ")"
                .Font.Bold = True
            End With
        Next
    End With
    Columns.EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

 

[ndu96081631]

Nhờ mọi người giúp với, mình muốn lấy data bằng vba không cần sử dụng pivot như file đính kèm thì làm thế nào ạ??

PivotTable hay vậy mà còn không thích thì tôi không biết có cách nào hay hơn nữa?
Kể cả VBA hay bất cứ cách nào thì cũng không thể nhanh gọn và chính xác hơn PivotTable được!

 

[be_09]

PivotTable hay vậy mà còn không thích thì tôi không biết có cách nào hay hơn nữa?
Kể cả VBA hay bất cứ cách nào thì cũng không thể nhanh gọn và chính xác hơn PivotTable được!

Nếu nói về tổng hợp và phân tích dữ liệu thì sử dụng PivotTable là tuyệt vời.

Nhưng, anh lại nghĩ ý định định của chủ thớt là như thế này:
1/ Dùng 1 sheet để theo dõi.
2/ Dựa vào sheet theo dõi họ trích lọc vào sheet data, sau đó chạy code ra dòng tổng cộng từng loại (mục đích lập danh sách trình ký theo quy định theo mẫu).