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

[nguyentrongquysla]

Dùng hàm rắc rối nhưng bạn cố gắng. Điều quan trọng là bạn nắm được cơ bản về từng hàm trong Excel thì sẽ giúp bạn thiết kế biểu mẫu và công thức khoa học, VD: hàm if, left, or, and...

 

[tusonduc]

bo thang dien
hoi cung ngu

 

[quynhsao]

Mình làm lương, 1 tháng làm trên 1 sheet,. giờ mình muôn nối các sheet lại thành 1 sheet chung để tiện theo dõi, các bác hướng dẫn cho em với, nếu ai có cách nào làm lưong hay k thì gửi lên cho em tham khảo với a.

 

[vothanhbac]

Co file mau ne

Mò mẫm dò dẫm wài cũng ko tốt lắm! mình có 1 file các bạn voi thử hén. Mình lập trình dở tệ nên đôi khi nhìn code có nhiều bạn cười mình. chứ dân ko biết lập trình lại thấy dễ hiểu vì mọi cái mình đều viết từ từ, không phân tích, thiết kế gì hết, nghĩ tới đâu code tới đó. Nói nhiều khó hiểu mời các bác xem qua
ko upload file lên dc chịu khó lên media tải về nha các bạn
upload.xls

 

[xitrums]

Cho mình hỏi thêm 1 chút về vấn đề gộp dữ liệu từ nhiều sheet.
Mình chỉ muốn gộp dữ liệu của 1 cột của nhiều sheet vậy mình sẽ sửa đoạn code của bạn HongViet như thế nào? Vui lòng chỉ hướng dẫn dùm. Xin cảm ơn.

 

[QDuc]

Cho mình hỏi thêm 1 chút về vấn đề gộp dữ liệu từ nhiều sheet.
Mình chỉ muốn gộp dữ liệu của 1 cột của nhiều sheet vậy mình sẽ sửa đoạn code của bạn HongViet như thế nào? Vui lòng chỉ hướng dẫn dùm. Xin cảm ơn.

(/ấn đề là sửa lại dòng lệnh của #2 chứ không nên của bài khác;
đó là đoạn mã này:

If WSh.Name <> "TongHop" Then
 WSh.[A5].CurrentRegion.Offset(2).Copy Destination:= _
 Sheets("TongHop").Range("A" & [B65500].End(xlUp).Row + 1)
End If

Để tùy biến, ta cần nắm hiểu câu lệnh đó theo ngôn ngữ việt, như sau:
Nếu tên trang tính đang duyệt không fải là 'TongHop' thì (thực thi cầu lệnh):
Đem vùng có DL (dữ liệu) (liên tục) kể từ [A5], bỏ đi 2 dòng đầu chép đến vùng mà ô đầu tiên của vùng này là ô dưới ô có DL cuối của cột 'A' thuộc trang 'TongHop'

Sau đó ta xét đến iêu cầu của bạn;
Trong iêu cầu này còn thiếu nhiều thông tin, như:
Chép cột nào của các trang tính cần chép, chép đến cột nào của trang 'TongHop' (nếu cột cần chép đến không trùng với cột DL của các trang nguồn.

Chỉ cho bạn thì OK thôi, nhưng như vậy sẽ lãng fí sức người, sức của của diễn đàn nói chung & cá nhân mình nói riêng.

Thân ái!

 

[xitrums]

Gộp dữ liệu từ nhiều sheet

Cho mình hỏi thêm 1 chút về vấn đề gộp dữ liệu từ nhiều sheet.
Mình có 1 file tính định mức cho nguyên phụ liệu như file đính kèm. Mình muốn cột [Định mức từng size] của sheet thun 5mm, sheet thun 20mm, sheet thun 30mm, sheet thun 40mm (tên của những sheet này sẽ thay đổi tùy theo loại nguyên phụ liệu sử dụng) sẽ được tổng hợp ở sheet TongHop. Mong các anh chị & các bạn giúp dùm. Xin cảm ơn

 

[HongViet]

Bạn kiểm theo file đính kèm giúp nha

Tổ hợp fím nóng chạy macro là {CTRL}+{SHIFT}+T

 

[xitrums]

Ðề: Bạn kiểm theo file đính kèm giúp nha

Xin cảm ơn anh HongViet rất nhiều. Nhưng anh cho mình hỏi thêm là khi mình thay đổi tên của sheet [thun 5mm] thành [thun 2mm](Tên sheet sẽ thay đổi theo [Loại NPL]) mình nhấn Ctrl+Shift+T thì dữ liệu mất hết. Anh xem lại dùm mình tí nhé, xin cảm ơn trước.

 

[SA_DQ]

Ðề: 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!)

 

[xitrums]

Ðề: Gộp dữ liệu từ nhiều Sheets

Xin cảm ơn anh SA_DQ rất nhiều nếu có khó khăn chỗ nào em sẽ liên lạc với anh, mong anh giúp đỡ.

 

[tocxoandaden]

Ðề: Nối dử liệu các sheet thành 1 sheet

Tôi cũng cần kết nối dữ liệu doanh số của 12 tháng, vì mỗi tháng bán hàng đã chiếm khoảng 35.000 dòng. Làm cách nào để có thể kết nối thành 1 sheet mà số liệu vẫn đầy đủ? Có bác nào giúp em với

 

[QDuc]

Ðề: Nối dử liệu các sheet thành 1 sheet

Bạn đưa vài tháng dữ liệu đó lên đi; Chắc chắn sẽ có người giúp bạn!

Nhưng trước tiên bạn cho biết số liệu của 1 dòng đầy đủ gồm những trường (cột) gì xem sao?

 

[meovahcuot85]

hic..do may minh ko go duoc co dau..admin dung xoa bai nha
ban co the tham khao code duoi day rui modify thanh cai ban can nha:

Dim t As Integer, m As Integer

Dim SrcRng As Range, Arr, i As Long, n As Long


FolderName = ActiveWorkbook.Path
wbName = Dir(FolderName & "\" & "VAT *_Mar_2012.xls")
Application.ScreenUpdating = False
Sheets("Detail1").Range("A3:L2000").ClearContents
While wbName <> ""
If wbName <> "MonthlyVAT_Mar_2012.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & wbName
Workbooks(wbName).Activate
Workbooks(wbName).Sheets("MONTHLY_VAT").Select: Cells(1, 1).Select
Selection.CurrentRegion.Select
t = Selection.Rows.Count
Selection.Offset(3).Resize(t - 1).Select

Selection.Copy
Windows(wbName).Visible = False
Windows("MonthlyVAT_Mar_2012.xls").Activate
Sheets("Detail1").Select
lRow = Range("L2000").End(xlUp).Row
Cells(lRow + 1, 1).Select
ActiveSheet.Paste

Application.DisplayAlerts = False
Workbooks(wbName).Close
End If

wbName = Dir
Wend

Cells(1, 1).Select
Application.ScreenUpdating = True

With ActiveSheet

.AutoFilterMode = False

.Range("A2:M2").AutoFilter

End With

 

[abpinksea]

Chào các anh.
( Còn có ai vào topic này nữa ko ạ? )
Em đã thử dòng lệnh này :

If WSh.Name = "T1" Or WSh.Name = "T2" Or WSh.Name = "T3" Or WSh.Name = "T4" Then
WSh.[A5].CurrentRegion.Offset(2).Copy Destination:= _
Sheets("TongHop").Range("A" & [B65500].End(xlUp).Row + 1)
End If

nhưng kết quả là nó chỉ gộp có 1 sheet, còn những sheet khác nó ko gộp
Vậy là sao, em cũng ko hiểu nổi, các anh có thể giải thích giúp xem em bị sai chỗ nào ko

Còn khi em dùng dòng lệnh này:

If WSh.Name <> "TongHop" Then
WSh.[A5].CurrentRegion.Offset(2).Copy Destination:= _
Sheets("TongHop").Range("A" & [B65500].End(xlUp).Row + 1)
End If

thì nó gộp được vài sheet trong file và dữ liệu ko đầy đủ.

Mong các anh giúp, cảm ơn các anh nhiều ( mấy năm rồi em mới dùng lại excel nên quên hết rồi)

 

[leepro]

Tình hình là em có một file như vậy, mà e thì không có rành excel cho lắm!
Nhờ mấy bấy cô, mấy bác giúp em gộp lại thành một sheet được không ạ!
Tại mỗi lần ông sếp hỏi mua cái gì, bao nhiêu tiên tìm rất vất vả, mà em lại ko biết làm sao.
Mong anh, chị chỉ giúp em kết hợp lại sao để sau này mình chỉ cấn bấm là ra thôi.

Em xin cám ơn nhiều ạ!

 

[phongky2013]

chào các anh chị
mình có file excel mình muốn gộp tất cả các sheet PN, PX, PT, PC lại thành 1 sheet mà mình không biết cách làm mong các bạn chỉ giúp mình, nếu copy theo PP thủ công thì ok những ở đây mình muốn tạo 1 lệnh viết bằng VBA để làm cho nó tiện mong các bạn giúp cho mình đính kèm file sau

Vậy nếu như mình có đến 80 sheet thi làm thế nào ?

Các bạn tham khảo nhé, số lượng sheet không giới hạn;

Tải code tại đây

 

[guest86]

Em chào các cao thủ Excel, vấn đề này em đã tìm hiểu được một số bài trên diễn đàn nhưng chưa thực hiện được. Em xin nhờ các cao thủ giúp đỡ.Yêu cầu của em như sau:
Em có 4 Sheets gồm: S1, S2, S3, S4 gồm các cột dữ liệu: STT, Họ và tên, Năm Sinh, Nam, Nữ, ... Bây giờ em làm một Sheet tổng hợp(tên là TH1 cũng có một số cột dữ liệu tương ứng) ở Sheet này sẽ tự động lấy tất các dòng dữ liệu ở 4 Sheets trên. Các bản ghi đưa sang Sheet TH1 đảm bảo không được đánh dấu X và hai cột: Ghi chú 1 và ghi chú 2.
File mẫu em đã đính kèm vào cùng bài viết.

 

[thuyvietduong]

sao ko làm ở 1 sheet rồi lọc dữ liệu đơn giản hơn

 

[guest86]

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