Bạn xài tạm code này cho sheet Tonghop nhé:
Private Sub Worksheet_Activate()
Dim i As Byte
Application.ScreenUpdating = False
Me.Move before:=Sheets(1)
[3:10000].Delete
For i = 2 To Sheets.Count
Sheets(i).[3:1000].Copy [A65536].End(xlUp).Offset(1)
Next
Application.ScreenUpdating = True
End Sub
Bạn sửa số 1000 trong code trên thành số lớn hơn là được.
Bạn sử dụng code này thay cho code trên nhé:
Private Sub Worksheet_Activate()
Dim Ws As Worksheet
Application.ScreenUpdating = False
[3:65536].Delete
For Each Ws In ThisWorkbook.Worksheets
If InStr(".A.C.", "." & Ws.Name & ".") > 0 Then
With Ws.Range("A3:P" & Ws.[A65536].End(xlUp).Row)
[A65536].End(xlUp).Offset(1).Resize(.Rows.Count, 16).Value = .Value
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Câu trả lời nằm tại bài #7 đó bạn.
If InStr(".A.C.", "." & Ws.Name & ".") > 0 ThenIf Ws.Name <> "Luong" ThenOk, nhưng mình còn 1 thắc măc nưa anh Phúc ơi.
Bạn thử nghiệm 2 dạng câu lệnh: Nguồn.Copy Đích và Đích.Value=Nguồn.Value, bạn sẽ thấy: Với câu lệnh 1 thì ở Nguồn có định dạng ra sao thì Đích sẽ có định dạng giống như vậy, còn câu lệnh thứ 2 chỉ copy giá trị từ Nguồn tới Đích mà không làm thay đổi định dạng của Đích. Bạn chỉ cần vận dụng linh hoạt 2 dạng câu lệnh trên là được.
Private Sub Worksheet_Activate()
Dim Ws As Worksheet
Dim i As Byte
Application.ScreenUpdating = False
[3:65536].Delete
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Luong" Then
[COLOR=#ff0000] For i = 2 To Sheets.Count[/COLOR]
[COLOR=#ff0000] Sheets(i).[3:1000].Copy [A65536].End(xlUp).Offset(1)[/COLOR]
Next
End If
Next
Application.ScreenUpdating = True
End SubTrời đất, đã For Each Ws In ThisWorkbook.Worksheets rồi còn For i = 2 To Sheets.Count nữa thì nó trùng là đúng rồi chứ sao nữa. Bạn bỏ vòng For thứ 2 đi nhé.
Nguyên nhân là các sheet thành phần của bạn không đồng bộ. Sheet thì nhập từ hàng 2, sheet thì nhập từ hàng 3. Với những bài toán tổng hợp từ nhiều sheet hoặc nhiều file thì cấu trúc file/bảng và quy ước nhập phải được thống nhất và đồng bộ, ngược lại thì việc tổng hợp sẽ khó và dễ sai sót.
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
