Tổng hợp dữ liệu các sheet vào sheet tổng hợp (1 người xem)

[bambiphongbl]

Mình tạo đề tài mới không biết có đúng nội quy không diễn đàn không. Mong được thông cảm.
Mong các bạn giúp đở :
1/ file mẫu mình đưa lên có 20sheet có cấu trúc giống nhau. Mình muốn lấy dữ liệu từ C43:C64 sang một sheet khác(theo file mẫu là sheet tonghop)
2/ Nếu file của mình có khoảng 500 sheet thì mình phải làm sao để tổng hợp như trên.
Rất mong được được giúp đở. Cám ơn

 

[ThuNghi]

Mình tạo đề tài mới không biết có đúng nội quy không diễn đàn không. Mong được thông cảm.
Mong các bạn giúp đở :
1/ file mẫu mình đưa lên có 20sheet có cấu trúc giống nhau. Mình muốn lấy dữ liệu từ C43:C64 sang một sheet khác(theo file mẫu là sheet tonghop)
2/ Nếu file của mình có khoảng 500 sheet thì mình phải làm sao để tổng hợp như trên.
Rất mong được được giúp đở. Cám ơn

File này có sh ẩn là virus macro và có nhiều name lỗi quá, nên xóa bớt đi. Dùng ASAP Ultilities.
Bạn dùng thử code sau nhé.

Option Explicit
Dim Arr(), ArrKQ()
Dim shName As String, sh As Worksheet
Dim i As Long, s As Long
Sub copyGPE()
With Application
  .ScreenUpdating = False
  .DisplayAlerts = False
End With
Arr = Array("O$46", "O$52", "O$51", "W$51", "C$52", "C$51", "C$53", "C$54", "C$43", "C$44", "C$45", "C$46", "C$47", "C$48", "C$49", "C$56", "C$58", "C61", "C$64", "T$37", "S$31", "U$37", "T$31", "T$32", "T$33")
s = 0
ReDim ArrKQ(1 To Worksheets.Count, 1 To 27)
For Each sh In Worksheets
shName = sh.Name
If shName <> "don gia" And shName <> "tong hop" Then
  s = s + 1
  With Sheets(shName)
ArrKQ(s, 1) = s
    For i = 0 To UBound(Arr)
      
      ArrKQ(s, i + 2) = .Range(Arr(i))
    Next i
  End With
 End If
Next
With Sheets("tong hop")
  .Range("A9").Resize(s, 27) = ArrKQ
End With
Erase Arr, ArrKQ
With Application
  .ScreenUpdating = True
  .DisplayAlerts = True
End With
End Sub

 

[yenht82]

Đó là cách gộp dữ liệu vậy tôi muốn tách ra thì làm thế nào ạ?

Đó là cách gộp dữ liệu vậy tôi muốn tách ra thì làm thế nào ạ?
Tui có file Help ở dưới ở sheet 0 thống kê số liệu và em muốn tách số liệu ví dụ B2(sheet 0) chuyển sang A1(sheet 1), B3(sheet 0) chuyển sang A1(sheet 2), B4(sheet 0) chuyển sang A1(sheet 3), B5(sheet 0) chuyển sang A1(sheet 4), .......
Nhờ chỉ giúp tui với.
Cảm ơn nhiều nhiều.

 

[hung_hvtc2001]

vao day toi thay nhieu kien thuc moi qua. toi thuong dung cac ham excel binh thuong. con cai goi la csdl, hay php code o tren thi khong hieu la gi, tac dung nhu the nao. doc tai lieu de hieu ve chung. ai co gui gium toi vao hom thu hung_hvtc2001@yahoo.com duoc khong. thanks truoc nha

 

[TrungChinhs]

Đó là cách gộp dữ liệu vậy tôi muốn tách ra thì làm thế nào ạ?
Tui có file Help ở dưới ở sheet 0 thống kê số liệu và em muốn tách số liệu ví dụ B2(sheet 0) chuyển sang A1(sheet 1), B3(sheet 0) chuyển sang A1(sheet 2), B4(sheet 0) chuyển sang A1(sheet 3), B5(sheet 0) chuyển sang A1(sheet 4), .......
Nhờ chỉ giúp tui với.
Cảm ơn nhiều nhiều.

Bạn xài tạm cái này. Để chạy lệnh bạn đúp chuột vào ô B1 của Sheet 0 nha.

 

[yenht82]

Thanks

Bạn xài tạm cái này. Để chạy lệnh bạn đúp chuột vào ô B1 của Sheet 0 nha.

Cảm ơn Trung Chinh nhé nhưng mình xài office2007 nên ko ro cach xem hàm bạn làm ở đâu cả? Làm ơn chỉ giúp mình được k?

 

[Melaptrinh]

Cảm ơn Trung Chinh nhé nhưng mình xài office2007 nên ko ro cach xem hàm bạn làm ở đâu cả? Làm ơn chỉ giúp mình được k?

trong excel 2007, bạn nhấn vào nút office button (nút tròn góc trái màn hình excel đó) chọn excel option, chọn popular, đánh dấu check vào show developer tab in the ribbon, thế là thanh công cụ có thêm 1 tab developer, trong đó có macro, visual basic... y như excel 2003 rồi đó.