duong_di_Kho
Thành viên mới

- Tham gia
- 17/2/08
- Bài viết
- 2
- Được thích
- 2
Kết quả mong muốn sẽ đưa đến đâu và như thế nào vậy Bạn? Bạn có thể làm kết quả mẫu được không?Mình cần Lọc dữ liệu trùng ra 1 sheet khác không sử dụng advanced filter hay consolidate vì nó không tự chạy được dữ liệu.
Cám ơn mọi người.
1/ Cái này người ta muốn học kiểu mới hay là đi đánh đố chứ đâu cần áp dụng vào công việc.Kết quả mong muốn sẽ đưa đến đâu và như thế nào vậy Bạn? Bạn có thể làm kết quả mẫu được không?
Bạn xem file đính kèmMình cần Lọc dữ liệu trùng ra 1 sheet khác không sử dụng advanced filter hay consolidate vì nó không tự chạy được dữ liệu.
Cám ơn mọi người.
1/ Cái này người ta muốn học kiểu mới hay là đi đánh đố chứ đâu cần áp dụng vào công việc.
2/ Nếu người ta cần áp dụng vào công việc thì đã đưa File thực tế và đâu cần nêu câu này "không sử dụng advanced filter hay consolidate".
3/ Nếu có nhu cầu thì bất kể giải pháp nào cũng được miễn có kết quả nhanh, lẹ miễn sao đáp ứng được cái cần.
4/ Trong File thì có tên sheet, nhưng người hỏi thì chung chung không cụ thể, rõ ràng.
Đúng cái mình cần, cám ơn bạn nhiềuBạn xem file đính kèm
Bài đã được tự động gộp:
Chắc chủ topic muốn thống kê mà diễn đạt chưa chính xác![]()
Không phải là đánh đố gì bạn. Dữ liệu của mình là tổng hợp đơn hàng khách đặt để đặt hàng nhà cung cấp. File này mình để lên google driver cho nhân viên chốt đơn điền trực tiếp vào dữ liệu. Nếu sử dụng Advanced filter hay consolidate nó chỉ trả kết quả 1 lần, mỗi lần làm lại phải lại lệnh và sửa lại file dễ gây nhầm lẫn (các đơn đã, đang đặt ncc)
Bài đã được tự động gộp:
Đúng cái mình cần, cám ơn bạn nhiều
Option Explicit
Sub TapCode_LocDuyNhatVaTinhTong()
Dim Dic As Object, Dulieu As Variant, Tonghop As Variant
Dim I As Long, K As Long, r As Long, Mau As String
Set Dic = CreateObject("Scripting.Dictionary")
Dulieu = Sheet2.Range("B1:C" & Sheet2.Range("B65000").End(xlUp).Row).Value
ReDim Tonghop(1 To UBound(Dulieu, 1), 1 To 2)
With Sheet1
For I = 2 To UBound(Dulieu, 1)
Mau = Dulieu(I, 1)
If Not Dic.Exists(Mau) Then
K = K + 1
Dic.Item(Mau) = K
Tonghop(K, 1) = Dulieu(I, 1)
End If
r = Dic.Item(Mau)
Tonghop(r, 2) = Tonghop(r, 2) + Dulieu(I, 2)
Next I
.Range("A2").Resize(65000, 2).Value = Empty
.Range("A2").Resize(K, 2) = Tonghop
End With
End Sub
Sử dụng PivotTable được không?không sử dụng advanced filter hay consolidate
Kết quả mong muốn sẽ đưa đến đâu và như thế nào vậy Bạn? Bạn có thể làm kết quả mẫu được không?
Mấy bạn cứ là đọc không kỹ và xem không kỹ rồi hỏi (hoặc bắt bẻ). Rõ ràng là trong sheet Tổng hợp có 2 tiêu đề cột là kết quả mẫu mong muốn (Mẫu và số lượng)1/ Cái này người ta muốn học kiểu mới hay là đi đánh đố chứ đâu cần áp dụng vào công việc.
2/ Nếu người ta cần áp dụng vào công việc thì đã đưa File thực tế và đâu cần nêu câu này "không sử dụng advanced filter hay consolidate".
3/ Nếu có nhu cầu thì bất kể giải pháp nào cũng được miễn có kết quả nhanh, lẹ miễn sao đáp ứng được cái cần.
4/ Trong File thì có tên sheet, nhưng người hỏi thì chung chung không cụ thể, rõ ràng.