Cách nhanh nhất là copy và paste. Nhớ có dòng tổng để kiểm tra!
Chỉ cần cở 3 sheet thôi là công thức đủ "lết bánh" rồi... 12 sheet e rằng phải dùng đến VBA... nếu bạn đồng ý thì chúng ta sẽ tiếp tục với giãi pháp VBA
Ví dụ cho bạn tham khảo đây!
Tôi cải tiến code lại 1 chút (ngắn gọn hơn)
Option Explicit
Private Sub Worksheet_Activate()
Dim Sh As Worksheet
Dim Src As Range
Dim Sc As Long, Sd As Long, Er As Long
Application.ScreenUpdating = False
Range("A2:C10000").ClearContents
For Each Sh In Worksheets
If Sh.Name <> "Tonghop" Then
With Sh.[A1].SpecialCells(2, 1)
Sc = Sh.[A1].CurrentRegion.Columns.Count - 1
Er = [B65536].End(xlUp).Row + 1
Set Src = Union(.Offset(, 0), .Offset(, 1)).Offset(, 1).Resize(, Sc)
Cells(Er, 2).Resize(.Rows.Count, Sc).Value = Src.Value
End With
End If
Next Sh
With [A1].SpecialCells(4)
Sd = .Rows.Count
.FormulaArray = "=Row(1:" & Sd & ")"
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub- Range("gì đó").SpecialCells(2,1) <==> Bạn quét chọn Range("gì đó") rồi bấm Ctrl + G\Special... chọn mục Contents và check vào "Number" (bỏ các dấu check "Text", "Logic" và "Error" ) ---> Trong hộp Goto này, nếu đếm từ trên xuống thì Contents nằm vị trí thứ 2
Private Sub Worksheet_Activate()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Range("A2:C10000").ClearContents
For Each Sh In Worksheets
If Sh.Name <> "Tonghop" Then
With Sh.Range("A1").CurrentRegion.Offset(1, 1).SpecialCells(2)
Range("B65536").End(xlUp)(2).Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End If
Next Sh
Range("A1").SpecialCells(4).Value = Evaluate("=Row(R1:R1000)")
Application.ScreenUpdating = True
End Subthanks bác đã giúp em cách làm nhưng em cái em hỏi chính là ý nghĩa và công dụng của những cái đó là gì đó bác. Bác giúp e hiểu luôn nhé!!!
Ẹc... Ẹc... Bạn hỏi nhiêu tôi trả lời bấy nhiêu rồi đấy thôi... Khúc trên ấy!
ndu96081631
Bạn à, tôi có 1 vấn đề này phiền mọi người giúp đỡ: Xây dựng 1 macro cho phép copy tất cả sheet trong các file excel trong 1 thư mục vào 1 file tổng hợp. Ví dụ: Thư mục VDu có 5 file excel; trong mỗi file excel này có 5 sheet-> 5 file sẽ có 25 sheet. Vậy công việc của macro này là copy 25 sheet do vao trong file tong hop(các sheet trong file nầy có tên là các số thứ tự 1,2,3,..,500 hoặc hơn.Mong các bạn giúp mình.
Thanks
