Tổng hợp nhiều sheet thành 1 sheet

[truongvu317]

Chào anh chị,
Mình có nhiều sheet. Mình muốn thống kê sô học sinh nữ thành 1 sheet theo yêu cầu. Anh chị giúp mình nhé.

Cảm ơn nhiều.

Nếu không có yêu cầu gì đặc biệt thì dùng lọc, rồi copy và paste. Vba làm gì cho mệt ra.

 

[VetMini]

Nếu không có yêu cầu gì đặc biệt thì dùng lọc, rồi copy và paste. Vba làm gì cho mệt ra.

Mệt ai?

 

[truongvu317]

Mệt ai?

Cả hai chứ bộ anh.

 

[VetMini]

Cả hai chứ bộ anh.

Chỉ mệt ngừoi viết code thôi. Người nhận code chưa biết cái mệt của bảo quản code. Đối với họ, file xlsx và xlsm hoàn toàn không có sự khác biệt. Nếu có sự khác biệt thì ưu thế thiên về bên xlsm.

 

[uyenln]

Hi bạn,
Chỗ đó là họ và tên đó. Cái mình muốn nhờ:

1) Tất cả dùng công thức để lọc ra số học sinh nữ của từng lớp
2) Sau đó, sẽ nối các dữ liệu học sinh nữ theo sheet mẫu yêu cầu.

Mong anh/chị sẽ hỗ trợ giúp em

 

[iamnobika]

Với dữ liệu hiện có trong file thì bạn dùng code này nhé:

Private Sub Worksheet_Activate()
    Dim i As Long, fR As Long, lR As Long, Rws As Long
    Application.ScreenUpdating = False
    [2:65000].Delete 'Xoa du lieu hien co
    Sheets(Array("TONGHOP", "Ref")).Move Before:=Sheets(1) 'Di chuyen sheet len dau
    For i = 3 To Sheets.Count 'Lam viec voi sheet thu 3 tro di (tru sheet TONGHOP va Ref)
        lR = Sheets(i).[A65000].End(xlUp).Row 'Xac dinh dong cuoi chua du lieu
        If lR > 1 Then 'Neu co du lieu thi thuc hien
            fR = 2 'Xac dinh dong dau cua sheet i
            Do While Sheets(i).Cells(fR, 1) = ""
                fR = fR + 1 'Xac dinh dong dau chua du lieu cua sheet i
            Loop
            Rws = lR - fR + 1 'So dong du lieu cua sheet i
            [A65000].End(xlUp).Offset(1).Resize(Rws, 18).Value = Sheets(i).Cells(fR, 1).Resize(Rws, 18).Value 'Copy gia tri qua sheet TONGHOP
        End If
    Next
    ActiveSheet.ListObjects("TongHop").Resize Range("A1:R" & [A65000].End(xlUp).Row) 'Mo rong Table TongHop
    Application.ScreenUpdating = True
End Sub

Anh ơi em đang bắt đầu học, muốn hỏi trong file của anh:
- Cấu trúc: [@[...] trong cột M là ghép dòng có cột tên tương ứng, cách thức tạo ra cấu trúc này là như thế nào ạ?
- Trong name manager có những dòng biểu tượng phía ngoài cùng tay trái là 1 bảng nhiều ô khác với biểu tượng name thông thường, ý nghĩa của nó là gì đấy ạ?
Mong anh giúp em tìm hiểu thêm với ạ ^^!