Tổng hợp dữ liệu từ nhiều sheet thành một sheet

[guest86]

Xin nhờ các cao thủ giúp đỡ

 

[Kin7]

Hì hì, không vậy được bạn à. Mình làm theo từng tháng mà

Theo từng tháng cũng nên làm trong 1 sheet.
Nếu bạn làm nhiều và có kinh nghiệm về excel bạn sẽ hiểu tách ra nhiều sheet như vậy là hạ sách.
Tốt nhất là nên thay đổi cách làm.

 

[Svkt2]

Khuyên bạn nên gộp chúng lại 1 sheet thui. chứ..... như bạn muốn thì tui cũng k biết làm

 

[SA_DQ]

Bạn kiểm theo file & cho biết đã đúng í bạn chưa.

 

[Svkt2]

SA_DQ hình như là coppy thủ công ??/

 

[HongViet]

Đây mà là thủ công ư:

Option Explicit
Sub TongHop4Sheets()
 Dim Sh As Worksheet, Arr()
 Dim J As Byte, W As Long, Rws As Long, Z As Long, GC As Byte, Col As Byte
 Dim ShName As String
 ReDim dArr(1 To 9999, 1 To 7)
 Dim DD As Boolean
 
 For J = 1 To 4
  ShName = "S" & CStr(J)
  Set Sh = ThisWorkbook.Worksheets(ShName)
  Rws = Sh.[b4].CurrentRegion.Rows.Count
  Arr = Sh.[b4].Resize(Rws, 17).Value
  For Z = 1 To UBound(Arr())
  For GC = 14 To 17
  If Arr(Z, GC) <> "" Then
  DD = True:  Exit For
  End If
  Next GC
  If DD Then
  DD = False
  Else
  W = W + 1
  For Col = 1 To 7
  dArr(W, Col) = Arr(Z, Col)
  Next Col
  End If
  Next Z
  W = W - 2  '?'
 Next J
 With Sheets("TH1").[b6]
  Rws = .Offset(65500).End(xlUp).Row
  .Resize(9 * Rws, 12).ClearContents
  If W Then
  .Resize(W, 7).Value = dArr()
  End If
 End With
End Sub

 

[vientaliban]

Bạn dùng macro sau



Chú ý: Mình đã đổi tên sheets 'Bang tong hop' rồi
Có hai lý do:
* Tên Sheet không nên có khoảng trắng (chủ yếu)
* Ngắn gọn nhưng không mất đi lượng thông tin mà nó chuyển tải

Chúc vui & thành đạt!:friend:

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ

 

[vientaliban]

Ðề: Gộp dữ liệu từ nhiều Sheets có tên khác nhau

Bạn có thể thêm các trang tính định mức, chỉ với iêu cầu:
Tên trang đó bắt đầu bằng 2 ký tự 'th' ; Macro sẽ tổng hợp cho bạn theo thứ tự mà nó muốn!

(Fím nóng vẫn như cũ đó bạn!)

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ

 

[vientaliban]

Thực ra thì nó cũng có lý do của nó đấy bác. Nếu bác làm được nhờ bác giúp em một phát. À bác đừng dùng Macro hay VBA gì nhé. Thanks bác.

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ

 

[vientaliban]

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ có link tai file excel trong phần youtube các bạn vào youtobe tải nhé

 

[vientaliban]

Thân gửi các cao thủ VBA dùng trong Excel
Tôi có 1 ví dụ nho nhỏ nhờ các đại ca ứng dụng VBA giúp.
Tôi có 12 sheet tuong ứng với 12 tháng trong 1 năm
Các sheet có cấu trúc giống nhau như sau:
Ngày CT Số CT Diễn giải TK đối ứng PS Nợ PS Có Dư Nợ Dư Có
Có đoạn code nào cho phép nối các sheet lại hay không ( 12 sheet thành 1 sheet tương ứng tháng 1,tháng 2, .....
Nhờ các đại ca giúp

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ có link tai file excel http://www.mediafire.com/download/0iz37rw7xwmuhfe/TONG+HOP.xlsm

http://www.mediafire.com/download/0iz37rw7xwmuhfe/TONG+HOP.xlsm

 

[vientaliban]

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ có link tai file excel http://www.mediafire.com/download/0iz37rw7xwmuhfe/TONG+HOP.xlsm

http://www.mediafire.com/download/0iz37rw7xwmuhfe/TONG+HOP.xlsm

 

[vientaliban]

BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ có link tai file excel http://www.mediafire.com/download/0iz37rw7xwmuhfe/TONG+HOP.xlsm

http://www.mediafire.com/download/0iz37rw7xwmuhfe/TONG+HOP.xlsm