Làm thành 50 sheet giống nhau và cộng lại

[labana]

Chào các bạn,

Xin các bạn giúp đỡ mình với.

Mình dùng excel 2007, mình có một sheet (xin xem giúp file đính kèm), mình muốn tạo thành 50 sheet với nội dung giống nhau. Và làm phép cộng trên sheet summary. Tức là tại sheet summary tại ô C3 sẽ là tổng của 50 sheet tại cùng vị trí C3.

Mong các bạn giúp đỡ và xin cám ơn trước ạ.

Trân trọng,

Khánh

 

[Hai Lúa Miền Tây]

Chào các bạn,

Xin các bạn giúp đỡ mình với.

Mình dùng excel 2007, mình có một sheet (xin xem giúp file đính kèm), mình muốn tạo thành 50 sheet với nội dung giống nhau. Và làm phép cộng trên sheet summary. Tức là tại sheet summary tại ô C3 sẽ là tổng của 50 sheet tại cùng vị trí C3.

Mong các bạn giúp đỡ và xin cám ơn trước ạ.

Trân trọng,

Khánh

Có nghĩa là bạn lấy 1 sheet chuẩn copy sheet chuẩn này ra làm 50 sheets có nội dung và hình thức "y chang" không khác gì sheet chuẩn và cộng tổng tất cả các sheet lại ??? Sao yêu cầu của bạn hơi lạ thế. Sao bạn không lấy số của sheet chuẩn đó nhân cho 50 là xong.
File của bạn đâu mình không thấy, bạn thử nén lại và gửi lên đi, mọi người xem và giúp chứ nói không thì nhiều khi hiểu nhằm ý, mất công bạn nhé
Thân

 

[hoa35ktxd]

Nếu bạn chỉ cần lấy kết quả ngay thì hãy làm như domfootwear đã nói, còn nếu muốn đặt công thức để tự động cập nhật thì có thể làm như sau.

Sub CopySheet()
    Dim StrAdd As String
    Dim I As Integer
    For I = 1 To 50
        Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
        StrAdd = "'" & Sheets(Sheets.Count).Name & "'!" & "C3"
        If I = 1 Then
            Sheets("SheetSummary").Range("C3").Value = "=" & StrAdd
        Else
            Sheets("SheetSummary").Range("C3").Formula = Sheets("SheetSummary").Range("C3").Formula & "+" & StrAdd
        End If
    Next
End Sub

 

[Hai Lúa Miền Tây]

Nếu bạn chỉ cần lấy kết quả ngay thì hãy làm như domfootwear đã nói, còn nếu muốn đặt công thức để tự động cập nhật thì có thể làm như sau.

Sub CopySheet()
    Dim StrAdd As String
    Dim I As Integer
    For I = 1 To 50
        Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
        StrAdd = "'" & Sheets(Sheets.Count).Name & "'!" & "C3"
        If I = 1 Then
            Sheets("SheetSummary").Range("C3").Value = "=" & StrAdd
        Else
            Sheets("SheetSummary").Range("C3").Formula = Sheets("SheetSummary").Range("C3").Formula & "+" & StrAdd
        End If
    Next
End Sub

Xin bổ xung thêm là đoạn code trên chạy được với điều kiện là sheet bạn muốn copy ra tên là sheet1 và bạn phải có 1 sheet nữa có tên là SheetSummary
Thân

 

[mrbean2010]

Làm gì mà phức tạp thế nhỉ, bạn chỉ việc nhấn nút chuột vào sheet cần copy, đồng thời nhấn phím Ctrl, rê chuột sang bên cạnh là có ngay 01 sheet giống y chang (kể cả định dạng), sau đó bạn vào Data\consolidate---> chọn vùng cần kết xuất kết quả nhấn Add cho đến khi hết 50 sheet. Kết quả là bạn sẽ có tổng cộng của tất cả các ô trong vùng cần kết xuất dữ liệu. Thử ngay nhé

 

[Hai Lúa Miền Tây]

Làm gì mà phức tạp thế nhỉ, bạn chỉ việc nhấn nút chuột vào sheet cần copy, đồng thời nhấn phím Ctrl, rê chuột sang bên cạnh là có ngay 01 sheet giống y chang (kể cả định dạng), sau đó bạn vào Data\consolidate---> chọn vùng cần kết xuất kết quả nhấn Add cho đến khi hết 50 sheet. Kết quả là bạn sẽ có tổng cộng của tất cả các ô trong vùng cần kết xuất dữ liệu. Thử ngay nhé

Cách của bạn cũng hay nhưng copy và tổng hợp bằng tay giống như bạn làm chẳng lẻ làm đến 50 lần . Cách củahoa35ktxd tuy lúc đầu có lâu 1 chút nhưng sau này chỉ việc click 1 cái là xong.
Thân

 

[labana]

Hi các bạn,

Mình không biết tí nào về excel 2007. Mình attach file nhờ các bạn giúp ạ.

Cám ơn các bạn.

 

[QuocPhong]

Cách của bạn cũng hay nhưng copy và tổng hợp bằng tay giống như bạn làm chẳng lẻ làm đến 50 lần .

Mình nghĩ copy bằng tay chỉ cần thực hiện 6 lần là đủ . Mình chọn nhiều sheet rồi giữ Ctrl và kéo thả.
@labana: Bạn tham khảo file đính kèm. Sử dụng công thức thì đơn giản hơn:

=SUM('Sheet1:Sheet50'!C3)

Thân.

 

[labana]

Cám ơn bạn nhưng mình thử cộng lại vẫn không được.

Bạn giúp mình tí.

Cám ơn bạn.

 

[labana]

Cám ơn các bạn trên diễn đàn thật nhiều.

Mình đã làm được rồi.

Labana