---
---
R2C2 : Không hiểu chổ này bạn ơi, giải thích giúp nhé
( Đúng đang cần)
=SUMIF(A1:A100,C1,B1:B100)
=SUMIF(A1:A100,C1,B1)
=SUMIF(A1:A100,C1,B1:B1000)
=SUMIF(A1:A100,C1,B1:Z1000)---
Theo như kết quả trong file, em thấy anh dùng Consolidate là nhanh nhất (mà hình như anh cũng đã từng thí nghiệm Consoldate trong file này thì phải)---
Ha ha ha ... lên sếp hồi nào vậy ptlong04x1 ?, sếp bị chú Ndu quan tâm la quá trời
Anh hỏi ptlong04x1 "tùm lum" từ Data/Validation, Trích lọc duy nhất, Hàm sumif là để anh làm "của nợ" này đây. Ptlong04x1 có cách nào hay thì giúp anh với.
" Anh còn hỏi nữa chứ chẳng thôi "
Đính kèm File.
---
Anh đâu cần quan tâm về giới hạn dòng cột... anh chọn tất tần tật đến cột IV và đến dòng 65536 luôn là xong!
---
Ha ha ha ... lên sếp hồi nào vậy ptlong04x1 ?, sếp bị chú Ndu quan tâm la quá trời
Anh hỏi ptlong04x1 "tùm lum" từ Data/Validation, Trích lọc duy nhất, Hàm sumif là để anh làm "của nợ" này đây. Ptlong04x1 có cách nào hay thì giúp anh với.
" Anh còn hỏi nữa chứ chẳng thôi "
Đính kèm File.
Sub Loc()
Dim Cll As Range, Area As Range
[5:14].Clear
Range("A15", Cells(16, [IV15].End(xlToLeft).Column)).Copy [A5]
Range("A15", [A65536].End(xlUp)).AdvancedFilter xlFilterCopy, , [IV1], True
Range("IV1", [IV65536].End(xlUp)).Cut [A5]
With WorksheetFunction
For Each Cll In Range("A7", [A14].End(xlUp))
Cll.Offset(, 1) = .SumIf(Range("A17", [A65536].End(xlUp)), Cll, [B17])
Cll.Offset(, 2) = [A:A].Find(Cll, [A16]).Offset(, 2)
Cll.Offset(, 3) = "=RC[-2]*RC[-1]"
Next Cll
For Each Area In Range("E17", Cells([A65536].End(xlUp).Row, _
.Count([E16:IV16]) + 4)).SpecialCells(2).Areas
Area.Copy Cells(14, Area.Column).End(xlUp).Offset(1)
Next Area
End With
End Sub---
---
Anh vận dụng code Trích lọc duy nhất và hàm Sumif của ptlong04x1 để viết, không có For nào mà cũng ra được kết quả !
Thông thường nếu trích lọc duy nhất mà có kèm yêu cầu tính tổng thì không nên dùng Advanced Filter mà phải là Consolidate hoặc PivotTable
Sub Loc_Consolidate()
Range("A5").CurrentRegion.ClearContents
With Range("A15:IV65536")
Range("A5").Consolidate .Address(, , 2), 9, True, True
End With
End Sub---Anh cho em xem đoạn code không dùng for với, code này mới prồ đây
---
Dể ẹt ---> Cứ Record macro là ra ---> Chỉ cần chú ý tham số Source của Consolidate chỉ chấp nhận địa chỉ cell dạng R1C1 mà thôi.... chẳng biết tại sao, nhưng địa chỉ dạng A1 nó cóc chơi... (Chú ý đoạn .Address(,,2) )Consolidate tuyệt thật, trước đây em chưa từng dùng bao giờ, phải nghiên cứu tiếp thôi.
