Giúp đỡ gộp nhiều sheet vào thành một sheet

[kyo37]

Chào cả nhà
Em có file excel gồm nhiều Sheet.Giờ em muốn gộp nhiều sheet này thành 1 sheet tổng hợp
Trong đó Sheet Nhà ăn dòng tiêu đề có nhiều hơn 1 dòng là có cột Colum
Mong các anh chị giúp em.

Em cảm ơn

 

[HieuCD]

Chào cả nhà
Em có file excel gồm nhiều Sheet.Giờ em muốn gộp nhiều sheet này thành 1 sheet tổng hợp
Trong đó Sheet Nhà ăn dòng tiêu đề có nhiều hơn 1 dòng là có cột Colum
Mong các anh chị giúp em.

Em cảm ơn

Nhập tên sheet vào cột B

C2 =OFFSET(INDIRECT("'"&B2&"'!L8"),MATCH(1000,INDIRECT("'"&B2&"'!A8:A1000")),)

Công thức cột N các sheet bị lỗi nguy hiểm, cần xóa

 

[Lê Duy Thương]

Chào cả nhà
Em có file excel gồm nhiều Sheet.Giờ em muốn gộp nhiều sheet này thành 1 sheet tổng hợp
Trong đó Sheet Nhà ăn dòng tiêu đề có nhiều hơn 1 dòng là có cột Colum
Mong các anh chị giúp em.

Em cảm ơn

KHÔNG CHĂC LẮM

Sub TONGHOP()
Dim sh As Worksheet
Application.ScreenUpdating = False
Sheets("TONG HOP").Range("8:65000").ClearContents
For Each sh In ThisWorkbook.Sheets
  If sh.Name <> "TONG HOP" Then
  sh.Range("A8:O" & sh.Range("O65000").End(3).Row).Copy
  Sheets("TONG HOP").Range("A65536").End(3).Offset(1).PasteSpecial (12)
  Application.CutCopyMode = False
  End If
Next
Application.ScreenUpdating = True
End Sub

 

[kyo37]

KHÔNG CHĂC LẮM

Sub TONGHOP()
Dim sh As Worksheet
Application.ScreenUpdating = False
Sheets("TONG HOP").Range("8:65000").ClearContents
For Each sh In ThisWorkbook.Sheets
  If sh.Name <> "TONG HOP" Then
  sh.Range("A8:O" & sh.Range("O65000").End(3).Row).Copy
  Sheets("TONG HOP").Range("A65536").End(3).Offset(1).PasteSpecial (12)
  Application.CutCopyMode = False
  End If
Next
Application.ScreenUpdating = True
End Sub

Em cảm ơn anh

 

[kyo37]

Nhập tên sheet vào cột B

C2 =OFFSET(INDIRECT("'"&B2&"'!L8"),MATCH(1000,INDIRECT("'"&B2&"'!A8:A1000")),)

Công thức cột N các sheet bị lỗi nguy hiểm, cần xóa

Em cảm ơn anh Hiếu.

Bài đã được tự động gộp: 30/4/20

Nhập tên sheet vào cột B

C2 =OFFSET(INDIRECT("'"&B2&"'!L8"),MATCH(1000,INDIRECT("'"&B2&"'!A8:A1000")),)

Công thức cột N các sheet bị lỗi nguy hiểm, cần xóa

Anh Hiếu cho em hỏi Công thức cột N các Sheet lỗi nguy hiểm gì được không ạ?Cách xóa công thức cột N các Sheet này.Đây là file của Bộ phận văn phòng bên Công ty em.Em cảm ơn anh

 

[HieuCD]

Em cảm ơn anh Hiếu.

Bài đã được tự động gộp: 30/4/20

Anh Hiếu cho em hỏi Công thức cột N các Sheet lỗi nguy hiểm gì được không ạ?Cách xóa công thức cột N các Sheet này.Đây là file của Bộ phận văn phòng bên Công ty em.Em cảm ơn anh

Ví dụ sheet "Kho-IE" ô N8 bị lỗi tính vòng, làm file chạy chậm và có thể làm kết quả các ô khác tính sai, các sheet khác tương tự

 

[kyo37]

Ví dụ sheet "Kho-IE" ô N8 bị lỗi tính vòng, làm file chạy chậm và có thể làm kết quả các ô khác tính sai, các sheet khác tương tự

Dạ em cảm ơn anh Hiếu.Mình phải tìm tuần tự từng Sheet để sửa lỗi tính vòng này à anh Hiếu.
Chúc anh Hiếu sức khỏe và nghỉ lễ vui vẻ ạ.