VBA Copy nhiều sheet vào 1 sheet (1 người xem)

[hongphuong1997]

Em có bài như trong file đính kèm
Copy nhiều sheet vào 1 sheet
Mong các thầy cô và anh chị viết giúp code
Em cảm ơn!

 

[Ba Tê]

Em có bài như trong file đính kèm
Copy nhiều sheet vào 1 sheet
Mong các thầy cô và anh chị viết giúp code
Em cảm ơn!

Public Sub s_Gpe()
Dim Ws As Worksheet, J As Long
J = 2
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Th" Then
        Ws.Range("A96:W167").Copy Sheets("Th").Cells(5, J)
        J = J + 24
    End If
Next Ws
End Sub

 

[hongphuong1997]

Public Sub s_Gpe()
Dim Ws As Worksheet, J As Long
J = 2
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Th" Then
        Ws.Range("A96:W167").Copy Sheets("Th").Cells(5, J)
        J = J + 24
    End If
Next Ws

Em cảm ơn anh rất nhiều
Thật ra thì em có hơn 60 sheet anh
Ba Tê ui
2 hum nay em cứ ngồi làm hàng mấy chục lần hoa hết cả mắt, chóng hết cả mặt mà vẫn chưa đâu vào đâu
Lại còn nhầm lẫn nữa chứ
Thế mờ anh làm trong tictak đã xong rùi
Lại không cần phải kiểm tra gì nữa
Em cảm ơn anh nhé
Chúc anh tối nay vui vẻ anh nhé!

 

[hongphuong1997]

Public Sub s_Gpe()
Dim Ws As Worksheet, J As Long
J = 2
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Th" Then
        Ws.Range("A96:W167").Copy Sheets("Th").Cells(5, J)
        J = J + 24
    End If
Next Ws
End Sub

À anh ơi em hỏi anh thêm chút síu nữa là trong file có thêm sheet(11) và 12 nữa mà em sửa lại code như này thì nó lại ra kết quả sai anh à
Sub s_Gpe2()
Dim Ws As Worksheet, J As Long
J = 2
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Th" Or Ws.Name <> "11" Or Ws.Name <> "12" Then
Ws.Range("A96:W167").Copy Sheets("Th").Cells(5, J)
J = J + 24
End If
Next Ws
End Sub
Thế là như nào hở anh?

 

[Ba Tê]

À anh ơi em hỏi anh thêm chút síu nữa là trong file có thêm sheet(11) và 12 nữa mà em sửa lại code như này thì nó lại ra kết quả sai anh à
Sub s_Gpe2()
Dim Ws As Worksheet, J As Long
J = 2
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Th" Or Ws.Name <> "11" Or Ws.Name <> "12" Then
Ws.Range("A96:W167").Copy Sheets("Th").Cells(5, J)
J = J + 24
End If
Next Ws
End Sub
Thế là như nào hở anh?

Dùng "OR" trật lất, muốn bỏ 3 sheet đó ra thì phải là "AND".

 

[hongphuong1997]

Dùng "OR" trật lất, muốn bỏ 3 sheet đó ra thì phải là "AND".

hi hi... em cảm ơn anh