Lọc tự động tách các dữ liệu trùng 1 mã copy sang các sheet khác (1 người xem)

[hieudhsp24]

Mình có file dữ liệu như đính kèm, mình loay hoay tìm cách lọc tự động tách các dữ liệu có cùng 1 mã (cột A) copy sang các sheet khác.
Ví dụ mã AAA ở cột A từ A2-A8 sẽ tự động tách và chuyển sang sheet mới, kèm theo các cột dữ liệu B, C, D tương ứng.
Mình search google mất 2 ngày mà chưa tìm được cách giải quyết. Rất mong các anh chị có thể xem giúp mình với nhé. Cảm ơn rất nhiều

 

[Hau151978]

Bạn dùng Auto filter cho cột A.

 

[Hieu07061984]

Mình có file dữ liệu như đính kèm, mình loay hoay tìm cách lọc tự động tách các dữ liệu có cùng 1 mã (cột A) copy sang các sheet khác.
Ví dụ mã AAA ở cột A từ A2-A8 sẽ tự động tách và chuyển sang sheet mới, kèm theo các cột dữ liệu B, C, D tương ứng.
Mình search google mất 2 ngày mà chưa tìm được cách giải quyết. Rất mong các anh chị có thể xem giúp mình với nhé. Cảm ơn rất nhiều

Dùng autofilter như của anh Hậu nói ở bên trên xử lý cho nó nhanh. Muốn lọc mà nào thì chọn mã đó rồi copy sang sheet khác.
Bạn tham khảo đường link sau hướng dẫn sử dụng auto filter:
https://www.youtube.com/watch?v=8_Ml_wC9qjg

 

[nginh]

Mình có file dữ liệu như đính kèm, mình loay hoay tìm cách lọc tự động tách các dữ liệu có cùng 1 mã (cột A) copy sang các sheet khác.
Ví dụ mã AAA ở cột A từ A2-A8 sẽ tự động tách và chuyển sang sheet mới, kèm theo các cột dữ liệu B, C, D tương ứng.
Mình search google mất 2 ngày mà chưa tìm được cách giải quyết. Rất mong các anh chị có thể xem giúp mình với nhé. Cảm ơn rất nhiều

Tham khảo
http://www.giaiphapexcel.com/forum/...c-một-file-mới-bằng-cách-lọc-qua-Filter/page2

 

[Ngoai Thanh]

Mình có file dữ liệu như đính kèm, mình loay hoay tìm cách lọc tự động tách các dữ liệu có cùng 1 mã (cột A) copy sang các sheet khác.
Ví dụ mã AAA ở cột A từ A2-A8 sẽ tự động tách và chuyển sang sheet mới, kèm theo các cột dữ liệu B, C, D tương ứng.
Mình search google mất 2 ngày mà chưa tìm được cách giải quyết. Rất mong các anh chị có thể xem giúp mình với nhé. Cảm ơn rất nhiều

Mình giúp bạn tại đây và không trả lời thêm tại tin nhắn riêng nữa nhé ! Bạn xem file, có gì phản hồi lại .

 

[hieudhsp24]

Mình giúp bạn tại đây và không trả lời thêm tại tin nhắn riêng nữa nhé ! Bạn xem file, có gì phản hồi lại .

Cảm ơn bạn @Ngoai Thanh nhiều nhiều nhé. Như cách của bạn là đã lọc được nhanh các mã, nhưng ý mình là muốn tách dữ liệu của từng mã vào từng sheet riêng, có bao nhiêu mã thì có bấy nhiêu sheet. Bạn thử nghiên cứu qua giúp mình lần nữa với nhé.

 

[Ngoai Thanh]

Cảm ơn bạn @Ngoai Thanh nhiều nhiều nhé. Như cách của bạn là đã lọc được nhanh các mã, nhưng ý mình là muốn tách dữ liệu của từng mã vào từng sheet riêng, có bao nhiêu mã thì có bấy nhiêu sheet. Bạn thử nghiên cứu qua giúp mình lần nữa với nhé.

Bạn xem file đính kèm và phản hồi kết quả nhé !

 

[hieudhsp24]

Bạn xem file đính kèm và phản hồi kết quả nhé !

Cảm ơn bác rất nhiều. Cho em hỏi là giờ muốn bổ sung thêm dữ liệu vào file tổng hợp thì mình sẽ phải sửa gì ở code không vì em thấy em thêm vào nó báo lỗi.

 

[Ngoai Thanh]

Cảm ơn bác rất nhiều. Cho em hỏi là giờ muốn bổ sung thêm dữ liệu vào file tổng hợp thì mình sẽ phải sửa gì ở code không vì em thấy em thêm vào nó báo lỗi.

Nếu thêm dữ liệu thì bạn gửi file lên chứ sao biết bạn thêm gì vào đâu mà sửa code . Lần sau nếu bạn đưa dữ liệu giả định cũng phải giống như thật, nếu không nhiều khi phải đổi cả phương án . Điều nữa là chủ đề của mình mà hàng tuần mới hồi âm thì... nói thực là mọi người chỉ quan tâm vài tiếng đến vài ngày, xong là không quan tâm nữa đâu .

 

[themoon2087]

Bạn xem file đính kèm và phản hồi kết quả nhé !

bác ơi cho em hỏi có thể tách thành từng sheet như vậy rồi, có cách nào tách thành từng file (workbooks) không ạ???
vì nếu trường hợp em tách lương theo cách này cùa bác em vẫn ngồi thủ công xóa từng sheets của người không liên quan. Nếu tách được ra thành từng Workbooks thì ngon (chả khác gì phần mềm) có thì bác chỉ em theo ví dụ bạn kia gửi với ạ

 

[Quang_Hải]

bác ơi cho em hỏi có thể tách thành từng sheet như vậy rồi, có cách nào tách thành từng file (workbooks) không ạ???
vì nếu trường hợp em tách lương theo cách này cùa bác em vẫn ngồi thủ công xóa từng sheets của người không liên quan. Nếu tách được ra thành từng Workbooks thì ngon (chả khác gì phần mềm) có thì bác chỉ em theo ví dụ bạn kia gửi với ạ

Nếu bạn gởi file lên thì chắc là làm được đấy. Nói không có file thì mông lung quá.

 

[themoon2087]

Nếu bạn gởi file lên thì chắc là làm được đấy. Nói không có file thì mông lung quá.

Dạ em gửi file ví dụ ạ. Có khoảng 108 nhân viên, mỗi nhân viên bán 100 sản phẩm sau đó tính lương theo bảng mẫu.
Hiện tại em làm theo từng đội nên việc tách lương không đến nỗi nhầm lẫn, tuy nhiên vẫn rất thủ công. Mong các bác giúp em ạ.

 

[themoon2087]

Dạ em gửi file ví dụ ạ. Có khoảng 108 nhân viên, mỗi nhân viên bán 100 sản phẩm sau đó tính lương theo bảng mẫu.
Hiện tại em làm theo từng đội nên việc tách lương không đến nỗi nhầm lẫn, tuy nhiên vẫn rất thủ công. Mong các bác giúp em ạ.

Các Bác giúp em với ạ

 

[Quang_Hải]

Dạ em gửi file ví dụ ạ. Có khoảng 108 nhân viên, mỗi nhân viên bán 100 sản phẩm sau đó tính lương theo bảng mẫu.
Hiện tại em làm theo từng đội nên việc tách lương không đến nỗi nhầm lẫn, tuy nhiên vẫn rất thủ công. Mong các bác giúp em ạ.

Đề nghị đừng hỏi thêm gì nữa nhá. Mình sẽ không giải thích đâu

Sub tach_file()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Dic As Object
Dim i As Long, Data(), Sdata As Range, NV As Variant
Set Dic = CreateObject("scripting.dictionary")
Data = Range([A2], [O65536].End(3)).Value
Set Sdata = Range([A1], [O65536].End(3))

For i = 1 To UBound(Data)
   If Data(i, 3) <> "" Then
      If Data(i, 3) <> "Total" Then
         Dic.Item(Data(i, 3)) = ""
      End If
   End If
Next

For Each NV In Dic.keys
   With Sdata
      .AutoFilter 3, NV
      .SpecialCells(12).Copy
      Workbooks.Add
      With ActiveWorkbook
         With .ActiveSheet
            .Name = NV
            .[A2].PasteSpecial 1
            .[A:O].Columns.AutoFit
         End With
         .SaveAs ThisWorkbook.Path & "\" & NV, 18
         .Close
      End With
      .AutoFilter
   End With
Next

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[ngovancan]

Gửi mọi người
em cũng có file tượng tự như vậy chỉ khác chút copy sang file cho sẵn.Nhờ mọi người xem xử lý giúp mình nhé.

 

[Ngoai Thanh]

Chào bạn
Nhờ bạn làm giúp file này với

mình có một bảng tính sau muốn gộp các dữ liệu trùng lại theo các điều kiện sau:
Lấy cột mã hàng làm cột điều kiện lọc
nếu mã hàng trùng nhau:
- Nếu đơn giá trùng nhau:
+ Cộng dồn số lượng
+ Thành tiền = số lượng * đơn giá
+ tiền trước thuế= Tổng tiền chia cho 1.1
+ Tiền thuế = Tiền trước thuế *10%
- Nếu đơn giá không bằng nhau thì cũng gộp lại nhưng với điều kiện sau:
+ Lấy trung bình cộng đơn giá
+ Cộng dồn số lượng
+ thành tiền = Trung bình cộng đơn giá * số luượng
Những bước trên tương tự

Theo sheet mẫu
Rất mong nhận được sự hồi âm
EM đang cần gấp vấn đề đó
Cảm ơn anh nhiều
File đính kèm
https://docs.google.com/spreadsheets/d/1_XAPv03dtXBdcyaKE5lNXhnOxOrVOSAh4LDKc_uRBEQ/edit?usp=sharing

Cảm ơn rất nhiều

Mình có xem qua file của bạn, tốt nhất là bạn xóa bớt dữ liệu, rồi gửi lên diễn đàn, nêu rõ yêu cầu và đừng gọi đích tên, nếu mình không giúp được thì bạn khác hoặc các thầy giúp .

 

[Ngoai Thanh]

Vì đang cần file tổng hợp từ đó, và đã cắt dữ liệu ra rồi đó
chứ còn nhiều lắm. Nhờ anh em và thầy giúp đở. đang cần làm báo cáo quý 3 và tổng hợp dữ liệu công nợ
giúp với

bạn xem file xem đúng ý bạn chưa nhé !

 

[ngovancan]

Gửi mọi người
em cũng có file tượng tự như vậy chỉ khác chút copy sang file cho sẵn.Nhờ mọi người xem xử lý giúp mình nhé.​

Tập tin đính kèm

• 
  File in case Nikon - Copy.xls (91.0 KB, 6 lần tải)

không để ý tới mình rồi

 

[Ngoai Thanh]

Gửi mọi người
em cũng có file tượng tự như vậy chỉ khác chút copy sang file cho sẵn.Nhờ mọi người xem xử lý giúp mình nhé.​

Tập tin đính kèm

• 
  File in case Nikon - Copy.xls (91.0 KB, 6 lần tải)

không để ý tới mình rồi

Là do bạn không nói rõ yêu cầu nên mọi người không biết giúp thế nào thôi. Bạn chỉ nói tương tự, tương tự thế nào ? căn cứ vào cái gì ... và kết quả ra sao ? nói chung phải nói rõ yêu cầu cụ thể ...Thật chẳng khác gì bạn đứng giữa đường hô "Giúp tôi với , mọi người ơi!" , trách chi người ta chỉ đứng nhìn vì biết giúp gì đây ...

 

[ngovancan]

Nguyên văn bởi ngovancan
Gửi mọi người
em cũng có file tượng tự như vậy chỉ khác chút copy sang file cho sẵn.Nhờ mọi người xem xử lý giúp mình nhé.


không để ý tới mình rồi



Là do bạn không nói rõ yêu cầu nên mọi người không biết giúp thế nào thôi. Bạn chỉ nói tương tự, tương tự thế nào ? căn cứ vào cái gì ... và kết quả ra sao ? nói chung phải nói rõ yêu cầu cụ thể ...Thật chẳng khác gì bạn đứng giữa đường hô "Giúp tôi với , mọi người ơi!" , trách chi người ta chỉ đứng nhìn vì biết giúp gì đây ...

Rất xin lỗi mọi người vì mình muốn nhờ mà không nói rõ .
trong file đính kèm mình có ghi yêu cầu bên trong rồi mong mọi người giúp đỡ.

 

[Ngoai Thanh]

Nguyên văn bởi ngovancan
Gửi mọi người
em cũng có file tượng tự như vậy chỉ khác chút copy sang file cho sẵn.Nhờ mọi người xem xử lý giúp mình nhé.


không để ý tới mình rồi



Là do bạn không nói rõ yêu cầu nên mọi người không biết giúp thế nào thôi. Bạn chỉ nói tương tự, tương tự thế nào ? căn cứ vào cái gì ... và kết quả ra sao ? nói chung phải nói rõ yêu cầu cụ thể ...Thật chẳng khác gì bạn đứng giữa đường hô "Giúp tôi với , mọi người ơi!" , trách chi người ta chỉ đứng nhìn vì biết giúp gì đây ...

Rất xin lỗi mọi người vì mình muốn nhờ mà không nói rõ .
trong file đính kèm mình có ghi yêu cầu bên trong rồi mong mọi người giúp đỡ.

Đằng nào thì mỗi lần bạn cũng chỉ xem được 1 sheet, làm nhiều làm gì cho nặng file ? thay đổi mã tại B2

 

[ngovancan]

Xin cảm ơn bạn Ngoai Thanh rất nhiều,cái file này mình phải in ra để gửi cho khách hàng nữa vậy lên mình sẽ thử sửa lại đoạn code bạn làm giúp mình chỗ
"thay đổi mã tại B2" ra chỗ khác để in nếu mình sửa nó không chạy nữa thì bạn sửa lại giúp mình nhé.

 

[Ngoai Thanh]

Xin cảm ơn bạn Ngoai Thanh rất nhiều,cái file này mình phải in ra để gửi cho khách hàng nữa vậy lên mình sẽ thử sửa lại đoạn code bạn làm giúp mình chỗ
"thay đổi mã tại B2" ra chỗ khác để in nếu mình sửa nó không chạy nữa thì bạn sửa lại giúp mình nhé.

Bạn vào File\Print Area\Set Print Area rồi đặt giới hạn trang in bắt đầu từ dòng thứ 3 trở đi thì nó không in 2 dòng trên . Việc gì phải chuyển chi cho mệt

 

[ngovancan]

Nguyên văn bởi ngovancan
Xin cảm ơn bạn Ngoai Thanh rất nhiều,cái file này mình phải in ra để gửi cho khách hàng nữa vậy lên mình sẽ thử sửa lại đoạn code bạn làm giúp mình chỗ
"thay đổi mã tại B2" ra chỗ khác để in nếu mình sửa nó không chạy nữa thì bạn sửa lại giúp mình nhé.




Bạn vào File\Print Area\Set Print Area rồi đặt giới hạn trang in bắt đầu từ dòng thứ 3 trở đi thì nó không in 2 dòng trên . Việc gì phải chuyển chi cho mệt

Cảm ơn bạn,mình đã thử việc tách sheet thì đã rất ok nhưng còn một chút nữa là mình muốn khi tách sheet rồi thì nó phải định dạng theo sheet mới chứ không phải định dạng như sheet cũ,bạn xem lại giúp mình nhé,trong file lúc đầu mình cũng có ghi chú "[TABLE="width: 566"]
[TR]
[TD="class: xl113, width: 566"][TABLE="width: 566"]
[TR]
[TD="class: xl113, width: 566"]Mỗi thùng gỗ(cột G) tương ướng với 1 sheet mới(sheet case#,tương ưng từ dòng 11)"[/TD]
[/TR]
[/TABLE]
mình loai hoay mãi mà không được lại phải gửi lên đây để bạn giúp.Mình muốn cố định 10 dòng đầu ,chỉ tách sheet từ dòng 11 trở đi thôi[/TD]
[/TR]
[/TABLE]

 

[ngovancan]

Mình gửi lại file,bên trên chư có file đính kèm

 

[Ngoai Thanh]

Mình gửi lại file,bên trên chư có file đính kèm

Bạn xem file xem đúng ý bạn chưa ? Việc so sánh với sheet "Case #" thì mình đâu có file Nguồn ! Việc định dạng kiểu gì cho sheet mới ? mình không hiểu ?

 

[ngovancan]

Xin cảm ơn,file này chưa đúng ý 100% của mình nhưng như vậy cũng tốt rồi,mình nghĩ chắc không ai nhiệt tình hơn bạn nữa đâu .thanks you vinamiu

 

[ngovancan]

Nhờ bạn Ngoai Thanh và các bạn xem giúp mình file này với nhé:Mình có 2 file mình muốn mỗi một hàng dữ liệu bên file kia sẽ tương ứng với các cột và hàng bên file này(/mục đích để in ra khổ A4) trong file mình có giải thích cụ thể hơn.Mong mọi người giúp đỡ

 

[Ngoai Thanh]

Nhờ bạn Ngoai Thanh và các bạn xem giúp mình file này với nhé:Mình có 2 file mình muốn mỗi một hàng dữ liệu bên file kia sẽ tương ứng với các cột và hàng bên file này(/mục đích để in ra khổ A4) trong file mình có giải thích cụ thể hơn.Mong mọi người giúp đỡ

bạn xem thử file, lần sau bạn nói cụ thể và cho ví dụ về kết quả cần. Làm sao người khác hiểu ý đồ của bạn thế nào, đoán mò tối cả mặt .

 

[giola]

bạn xem thử file, lần sau bạn nói cụ thể và cho ví dụ về kết quả cần. Làm sao người khác hiểu ý đồ của bạn thế nào, đoán mò tối cả mặt .

không nên đoán bạn ah, hãy hỏi lại người đã hỏi. Quá nhiều người diễn đàn này hấp tấp trả lời - cuối cùng lại phải kêu, và làm người hỏi cũng tự lười đi, không trả lời hay nói rõ tạo thuận lợi cho người trả lời.

 

[Ngoai Thanh]

không nên đoán bạn ah, hãy hỏi lại người đã hỏi. Quá nhiều người diễn đàn này hấp tấp trả lời - cuối cùng lại phải kêu, và làm người hỏi cũng tự lười đi, không trả lời hay nói rõ tạo thuận lợi cho người trả lời.

Nếu không trúng thì ...tạm biệt mùa đông...

 

[ngovancan]

Có thể mình nói chưa được rõ nghĩa nắm,file bạn Ngoai Thanh làm giúp mình thì cũng ok rồi nhưng file này mỗi lần chỉ in được 1 tờ nếu có 100 dòng dữ liệu bên sheet "file truyen" thì phải chọn số 100 lần như vậy thì lâu quá.Mình muốn truyền 1 lần ra cả 100 tờ cần để in luôn,kết quả là như sheer File in-hiện là có 2 dòng dữ liệu và đã truyền ra 2 tờ cần in).Bạn xem lại giúp mình nhé nếu mình nói chưa rõ thì để mình giải thích lại.(sao file mình không tải lên được vậy nó toàn báo lỗi như thế này là làm sao)
[h=3]Upload Errors[/h]

• Check list dong hang xuat khau-moi - Copy.xls - Exceeds your quota by 78.8 KB. Click here to view your attachments

Tổng dung lượng tập tin đính kèm của ngovancan: 975.8 KB
Tổng dung lượng đã dùng: 975.8 KB
Tổng dung lượng tối đa của bạn là: 1.00 MB

 

[ngovancan]

Mình không gửi được file lên gửi ảnh phía dưới bạn Ngoại Thanh xem giúp mình nhé

 

[Ngoai Thanh]

Mình không gửi được file lên gửi ảnh phía dưới bạn Ngoại Thanh xem giúp mình nhé
View attachment 138525

Không thấy bạn tải file mình remove cho đỡ tốn quote

 

[ngovancan]

Xin cảm ơn bạn,file bạn làm giúp mình với trường hợp ít dòng dữ liệu thì ok nhưng file của mình nhiều lúc dữ liệu lên đến hơn 200 dòng nếu vậy muốn in phải bấm hơn 200 lần cũng hơi mất thời gian.Mình muốn sử dụng vòng lặp cho trường hợp này thì có sử dùng được không(cái mình muốn là truyền 1 phát ra cả đống như kiểu in bảng điểm cho học sinh mà họ chỉ thay mỗi tên với lớp thôi ấy).
Minh thường sử dụng vòng lặp như bên dưới nhưng file này có nhiều ô quá lên không biết cách để sử dụng nó như thế nào cả.

Sub Button32732_Click()
Dim COPY As Worksheet
Set COPY = Sheets("DU LIEU COPY")
Dim DES As Worksheet
Set DES = Sheets("Mau")
Dim i As Integer
Dim j As Integer
j = 5
DES.Rows(j + 2 & ":" & j + 10000).Delete


For i = 2 To 10000
If COPY.Range("B" & i).Value = "" Then Exit For
DES.Range("A" & j) = COPY.Range("E" & i)
DES.Range("B" & j) = COPY.Range("F" & i)
DES.Range("E" & j - 1) = COPY.Range("G" & i)
DES.Range("E" & j) = COPY.Range("D" & i)
DES.Range("E" & j + 1) = COPY.Range("C" & i)


If COPY.Range("B" & i + 1).Value = "" Then Exit For
DES.Rows(j - 1 & ":" & j + 1).Select
Selection.COPY
DES.Rows(j + 2 & ":" & j + 2).Select
DES.Paste
j = j + 3
Next i
MsgBox "Success!"
Exit Sub
abc:
MsgBox "Co loi xay ra"
End Sub

 

[Ngoai Thanh]

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!