Tách dữ liệu tổng hợp thành các dữ liệu riêng lẻ (1 người xem)

[lahato]

Chào ACE
Mình có 1 file tổng hợp. Mình muốn tách dữ liệu qua các sheet thành các dữ liệu nhỏ hơn để dể quản lý.
Như file đính kèm.
Anh chị em giúp với

 

[hoangvuluan]

Với dạng này thì dùng VBA là tốt nhất (tránh công thức dư thừa do lọc bằng công thức), cho nên để lâu dài, bạn nên đưa file có cấu trúc gần đúng với file thật của bạn.

 

[lahato]

Với dạng này thì dùng VBA là tốt nhất (tránh công thức dư thừa do lọc bằng công thức), cho nên để lâu dài, bạn nên đưa file có cấu trúc gần đúng với file thật của bạn.

cái file mình cũng y như vậy luôn! khác cái là nó có nhiều thông tin hơn thôi

 

[concogia]

cái file mình cũng y như vậy luôn! khác cái là nó có nhiều thông tin hơn thôi

Bài dạng này trên diễn đàn có.....cả đống ( hình như mình làm cũng cỡ 5 lần)
Cái cần của bài này là dữ liệu thật của bạn bố trí như thế nào để giải một lần thôi là ok, khỏi phải sửa chứ nhìn dữ liệu trong bài đơn sơ quá sợ làm xong lại .....loay hoay sửa
Híc

 

[vu_tuan_manh_linh]

Chào ACE
Mình có 1 file tổng hợp. Mình muốn tách dữ liệu qua các sheet thành các dữ liệu nhỏ hơn để dể quản lý.
Như file đính kèm.
Anh chị em giúp với

Đơn giản mà dễ hiểu nhất là dùng hàm if, rồi Autofilter (Xem sheet Cty A).

 

[lahato]

Đơn giản mà dễ hiểu nhất là dùng hàm if, rồi Autofilter (Xem sheet Cty A).

xài filter đơn giản nhưng phiền phức lắm!

mình có 1 sheet chi tổng hợp tất cả các địa điểm, và muốn tạo 1 sheet chi ở factory tự động chạy ( ko cần copy, filter) gì cả!

 

[concogia]

xài filter đơn giản nhưng phiền phức lắm!

mình có 1 sheet chi tổng hợp tất cả các địa điểm, và muốn tạo 1 sheet chi ở factory tự động chạy ( ko cần copy, filter) gì cả!

Gởi bạn một cách làm
Bạn tùy biến vào file thật của bạn
Trong bảng dữ liệu nên hạn chế Merge Cell ==> gây khó khi sử lý dữ liệu
Chú ý: Tên sheet & tên "Địa Điểm" (Cột E ) phải giống nhau
Thân

 

[hoangvuluan]

Thêm 1 lựa chọn cho bạn.
Trong file đính kèm, tôi bổ sung thêm 1 sheet, chứa giá trị lọc các địa điểm xuất hiện trong file của bạn (đặt tên sheet là: DiaDiem)
Mỗi khi mở file, sẽ chạy sự kiện Workbook.Open, nó sẽ tạo lại danh sách các địa điểm để nạp vào Validation đặt trong ô E1 của sheet "Tong hop"
Trên sheet "Tong hop" tôi có bổ sung 1 nút lệnh cũng có thể gọi macro chạy lại việc tạo danh sách địa điểm phòng khi bạn có bổ sung dữ liệu.

Sub oFil() 'Tạo danh sách địa điểm để xử lý'
Dim iR As Long, r As Range
    Set r = Sheet2.Range("E4") ' o bat dau chua danh sach cac dia diem '
    Set r = r.Resize(r.End(xlDown).Row - r.Row + 1, 1)
    iR = r.Rows.Count
    Sheet2.AutoFilterMode = False
    r.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range("B1:B2"), CopyToRange:=Sheet1.Cells(2, 1), Unique:=True
    Sheet1.Range("Diadiem").Sort Key1:=Sheet1.Cells(1, 1), Header:=xlYes
End Sub

Công việc sẽ thực hiện như sau:
1. Chọn địa điểm cần copy qua sheet mới ở ô E1
- Nếu E1 chọn giá trị "DiaDiem" nghĩa là bạn sẽ tạo toàn bộ các sheet chứa địa điểm tương ứng
- Nếu E1 là tên của 1 địa điểm thì sẽ chỉ tạo 1 sheet đúng với địa điểm đã chọn.

2. Nếu sheet chưa tồn tại, sẽ tạo mới, nếu đã có sheet trước đó, sẽ xóa dữ liệu và copy lại.

Ngoài ra còn có 1 số name dùng để quản lý cho đơn giản (nhấn Ctrl-F3 để xem)
Bạn xem thêm trong file đính kèm. Có gì thì trao đổi lại ở đây.

 

[lahato]

Bạn ơi có thể giải thích sơ lệnh code này ko?

Public Sub Loc()
Dim Vung
Set Vung = Sheets("Tong hop").Range(Sheets("Tong hop").[A4], Sheets("Tong hop").[A50000].End(xlUp)).Resize(, 10)
[A3:J10000].Clear
With Vung
.AutoFilter 5, ActiveSheet.Name
.SpecialCells(12).Copy [A3]
.AutoFilter
End With
End Sub

 

[hoangvuluan]

Bạn đã chạy thử file chưa? kết quả thế nào? có gì phàn nàn không?...
Bạn chẳng có ý kiến gì, chỉ biết đặt thêm 1 câu hỏi thôi sao???

 

[lahato]

Bạn đã chạy thử file chưa? kết quả thế nào? có gì phàn nàn không?...
Bạn chẳng có ý kiến gì, chỉ biết đặt thêm 1 câu hỏi thôi sao???

chạy thử rồi bạn ơi! chuẩn ko cần chỉnh, đáp ứng được nhu cầu, nhưng có điều gửi báo cáo qua sếp, sếp xài ipad ko biết đọc dc không?