Tổng hợp dữ liệu giữa các cột sang sheet mới

[laobakien]

Mình có một file dữ liệu muốn tổng hợp dữ liệu cột floor12,floor11,floor10 từ sheet anyfloor sang sheet Total vào tạo hành một cột tổng hợp của ba cột bên sheet kia, khi dữ liệu bên này có thay đổi hay thêm mới hoặc vào tự động điền sang sheet Total bên cạnh. Mình muốn làm hàm tự động bởi vì hay làm nhiều file kiểu này để sau dễ dùng.
Cảm ơn.

 

[thivantan]

Mình có một file dữ liệu muốn tổng hợp dữ liệu cột floor12,floor11,floor10 từ sheet anyfloor sang sheet Total vào tạo hành một cột tổng hợp của ba cột bên sheet kia, khi dữ liệu bên này có thay đổi hay thêm mới hoặc vào tự động điền sang sheet Total bên cạnh. Mình muốn làm hàm tự động bởi vì hay làm nhiều file kiểu này để sau dễ dùng.
Cảm ơn.

Bạn thử xem đúng ý chưa nhé. Thân

Private Sub worksheet_activate()
Sheet2.Range("A4:B" & Sheet2.[A65000].End(xlUp).Row).ClearContents
With Sheet1.Range("A3:G" & Sheet1.[A65000].End(xlUp).Row)
.Offset(1, 1).Resize(, 1).Copy: Sheet2.Range("A" & Sheet2.[A65000].End(xlUp).Row + 1).PasteSpecial 3
.Offset(1, 2).Resize(, 1).Copy: Sheet2.Range("B" & Sheet2.[B65000].End(xlUp).Row + 1).PasteSpecial 3
.Offset(1, 3).Resize(, 1).Copy: Sheet2.Range("A" & Sheet2.[A65000].End(xlUp).Row + 1).PasteSpecial 3
.Offset(1, 4).Resize(, 1).Copy: Sheet2.Range("B" & Sheet2.[B65000].End(xlUp).Row + 1).PasteSpecial 3
.Offset(1, 5).Resize(, 1).Copy: Sheet2.Range("A" & Sheet2.[A65000].End(xlUp).Row + 1).PasteSpecial 3
.Offset(1, 6).Resize(, 1).Copy: Sheet2.Range("B" & Sheet2.[B65000].End(xlUp).Row + 1).PasteSpecial 3
End With
Cells(1, 1).Select
End Sub

 

[palmit]

hàm sắp xếp

Chào các bác!
em co 1 file chi tiết hàng xưởng lúc trước nhập mã mầu không theo thứ tự,bây giờ em muốn sắp xếp lại cho dễ kiểm tra nhưng ko biết làm cách nào.nhờ các bác giúp đỡ cho
Tks!