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

guest86 nói:
Hì hì, không vậy được bạn à. Mình làm theo từng tháng mà :)
Nhấn để mở rộng...
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.
 
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
 
Đây mà là thủ công ư:
PHP: 
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
 
SA_DQ nói:
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:
Nhấn để mở rộng...
BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ

 
SA_DQ nói:
Ðề: 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!)
Nhấn để mở rộng...
BẠN XEM VIDEO HƯỚNG DẨN NÀY NHÉ

 
lexthien nói:
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
Nhấn để mở rộng...
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
 
Bạn phải đăng nhập hoặc đăng ký để bình luận.

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Back
Top