Tổng hợp nhiều sheet vào một sheet (1 người xem)

  • Thread starter Thread starter nvh611
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Có nghĩa là các trang tính '1', '2' & '3' đều có 3 vùng dữ liệu (Mà chúng đều giống hệt nhau là sao?)
Nhiệm vụ là chuyển 2 vùng dưới của các trang tính này sang cột 'B' của trang tổng hợp, với iêu cầu cách vùng 1 (tại trang tổng hợp 2 dòng)

Thắc mắc 1 điều là các vùng số liệu của các trang kia giống nhau hết thì việc gì phải làm cho 3 lần tổng hợp, chỉ cần 1 lần thôi; Nhưng nếu bạn lười trong giả lập file thì chào bạn, mình đi chỗ khác đây!
 
Upvote 0
Tự làm lấy thì chỉ trong vòng 30 phút.
Cái file có chút xíu vậy cũng gửi lên đây nhờ người ta làm giùm.
 
Upvote 0
Vấn đề là 'người ta' muốn làm cũng không biết thế nào cho thỏa mong mõi của chủ bài đăng.
 
Upvote 0
Ủa rồi tổng hợp từ 3 sheet '1,'2,'3 rồi mà sheet Tonghop số liệu y chang 3 cái kia thì đâu phải tổng hợp
 
Upvote 0

File đính kèm

Upvote 0
Bạn thử chạy macro này:
PHP: 
Sub CopyFrom3Sheet()
 Dim Dong As Long, Cot As Integer
 Dim Sh As Worksheet, Rng As Range
 On Error Resume Next
With Sheets("THop")
    [A3:Z49].ClearContents
    For Each Sh In ThisWorkbook.Worksheets
        Dong = 3
        If IsNumeric(Sh.Name) Then
            Cot = Choose(CInt(Sh.Name), 2, 8, 14, 35)
            
            Set Rng = Sh.[b3].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot)
            
            Dong = Dong + Rng.Rows.Count + 2
            Set Rng = Sh.[G16].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot)
            
            Dong = Dong + 2 + Rng.Rows.Count
            Set Rng = Sh.[e31].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot)
        End If
    Next Sh
End With
End Sub
 
Upvote 0
SA_DQ đã viết:
Bạn thử chạy macro này:
PHP: 
Sub CopyFrom3Sheet()
Dim Dong As Long, Cot As Integer
Dim Sh As Worksheet, Rng As Range
On Error Resume Next
With Sheets("THop")
    [A3:Z49].ClearContents
    For Each Sh In ThisWorkbook.Worksheets
        Dong = 3
        If IsNumeric(Sh.Name) Then
            Cot = Choose(CInt(Sh.Name), 2, 8, 14, 35)
           
            Set Rng = Sh.[b3].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot)
           
            Dong = Dong + Rng.Rows.Count + 2
            Set Rng = Sh.[G16].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot)
           
            Dong = Dong + 2 + Rng.Rows.Count
            Set Rng = Sh.[e31].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot)
        End If
    Next Sh
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh @SA_DQ
Nhưng mình chạy không ra kết quả
Anh kiểm tra giúp xem sai sót ở đâu hộ mình với nhé.
Anh có thể viết chọn từng vùng được không?
Cảm ơn anh nhá.
 
Upvote 0
Thế nào là không ra kết quả:
Không chạy macro?
Không tổng hợp tẹo dữ liệu nào; Trang THop trống trơn?
Chỉ tổng hợp đúng trang '1'?
. . . . (gì khác?)
 
Upvote 0
1: Hãy đổi tên trang tính 'TongHop' thành 'THop' như trong macro hay ngược lại
2: Nếu vẫn kết quả cũ thì vô hiệu hóa dòng lệnh On Error Resume Next & bạn sẽ biết lỗi do đâu ở chương trình.
 
Upvote 0
SA_DQ đã viết:
1: Hãy đổi tên trang tính 'TongHop' thành 'THop' như trong macro hay ngược lại
2: Nếu vẫn kết quả cũ thì vô hiệu hóa dòng lệnh On Error Resume Next & bạn sẽ biết lỗi do đâu ở chương trình.
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh @SA_DQ rất nhiều
Mình đã đổi tên Sheet và code đã chạy
Nhưng có một điều là kết quả không được như mong muốn.
Phiền anh @SA_DQ giúp mình sửa lại với nhá
và một điều này nừa mong anh @SA_DQ thông cảm (Mình kém về môn này)
===>>> Vì vậy anh @SA_DQ có thể nghiên cứu xem là chọn từng vùng dữ liệu được không?
Bời vì dữ liệu của mình xếp lung tung loạn xạ
Trân thành cảm ơn anh @SA_DQ
 

File đính kèm

Upvote 0
Mình vừa chép macro bài trên đưa vô file bài 13 & cho chạy ra kết quả bình thường mà?
Hay chưa đạt iêu cầu của bạn ở chổ nào vậy; Bạn cần mô tả kỹ để chúng ta sửa cho đạt;
Còn vụ chép vùng thì macro nó làm được rồi mà: Qua mỗi trang tính (mang số) nó chép lần lượt từng vùng từ trên xuống dưới đó thây.
???
 
Upvote 0
SA_DQ đã viết:
Mình vừa chép macro bài trên đưa vô file bài 13 & cho chạy ra kết quả bình thường mà?
Hay chưa đạt iêu cầu của bạn ở chổ nào vậy; Bạn cần mô tả kỹ để chúng ta sửa cho đạt;
Còn vụ chép vùng thì macro nó làm được rồi mà: Qua mỗi trang tính (mang số) nó chép lần lượt từng vùng từ trên xuống dưới đó thây.
???
Nhấp chuột vào đây để mở rộng...
Báo cáo anh @SA_DQ kết quả mong muốn của mình là như này



Kết quả mong muốn.
* Cột đầu tiên cùng nằm trên cột "B"
* Các vùng cách nhau 2 dòng
* Và các vùng của các sheet cách nhau 3 cột
Cảm ơn các bạn
Nhưng code của anh đang bị sai cái gì đó.
Anh @SA_DQ viết dùm code khác để cho mình đễ hiểu và làm thực tế với
Cảm ơn anh @SA_DQ đã quan tâm và giúp đỡ.
 
Upvote 0
nvh611 đã viết:
...Nhưng code của anh đang bị sai cái gì đó.
Nhấp chuột vào đây để mở rộng...
Sai ra làm sao thì chỉ mình bạn biết, sao lại nói "cái gì đó".

Code chạy ra kết quả A, nếu đúng thì phải là B.
Giải thích A và B khác nhau thế nào thì người ta mới biết.
 
Upvote 0
VetMini đã viết:
Sai ra làm sao thì chỉ mình bạn biết, sao lại nói "cái gì đó".

Code chạy ra kết quả A, nếu đúng thì phải là B.
Giải thích A và B khác nhau thế nào thì người ta mới biết.
Nhấp chuột vào đây để mở rộng...
Báo cáo anh @VetMini theo như kết quả mong muốn của mình thì như này:


Kết quả mong muốn.
* Cột đầu tiên cùng nằm trên cột "B"
* Các vùng cách nhau 2 dòng
* Và các vùng của các sheet cách nhau 3 cột
Nhưng code của anh @SA_DQ chỉ đúng ý 1
Anh xem giùm nhá
 

File đính kèm

Upvote 0
Sửa code trên như sau:

Mã: 
Sub CopyFrom3Sheets()
 Dim Dong As Long
 Dim Cot1 As Integer, Cot2 As Integer, Cot3 As Integer
 Dim Sh As Worksheet, Rng As Range
 'On Error Resume Next
With Sheets("THop")
    [A3:Z49].EntireRow.Delete
    Cot1 = 2
    Cot2 = 2
    Cot3 = 2
    For Each Sh In ThisWorkbook.Worksheets
        Dong = 3
        If IsNumeric(Sh.Name) Then
            'Cot = Choose(CInt(Sh.Name), 2, 8, 14, 35)
            
            Set Rng = Sh.[b3].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot1)
            Cot1 = Cot1 + Rng.Columns.Count + 3
            
            Dong = Dong + Rng.Rows.Count + 2
            Set Rng = Sh.[G16].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot2)
            Cot2 = Cot2 + Rng.Columns.Count + 3
            
            Dong = Dong + 2 + Rng.Rows.Count
            Set Rng = Sh.[e31].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot3)
            Cot3 = Cot3 + Rng.Columns.Count + 3
        End If
    Next Sh
End With
End Sub
 
Upvote 0
VetMini đã viết:
Sửa code trên như sau:

Mã: 
Sub CopyFrom3Sheets()
Dim Dong As Long
Dim Cot1 As Integer, Cot2 As Integer, Cot3 As Integer
Dim Sh As Worksheet, Rng As Range
'On Error Resume Next
With Sheets("THop")
    [A3:Z49].EntireRow.Delete
    Cot1 = 2
    Cot2 = 2
    Cot3 = 2
    For Each Sh In ThisWorkbook.Worksheets
        Dong = 3
        If IsNumeric(Sh.Name) Then
            'Cot = Choose(CInt(Sh.Name), 2, 8, 14, 35)
           
            Set Rng = Sh.[b3].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot1)
            Cot1 = Cot1 + Rng.Columns.Count + 3
           
            Dong = Dong + Rng.Rows.Count + 2
            Set Rng = Sh.[G16].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot2)
            Cot2 = Cot2 + Rng.Columns.Count + 3
           
            Dong = Dong + 2 + Rng.Rows.Count
            Set Rng = Sh.[e31].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot3)
            Cot3 = Cot3 + Rng.Columns.Count + 3
        End If
    Next Sh
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh @VetMini và anh @SA_DQ đã nhiết tình giúp đỡ, bài đã rất chuẩn
anh @VetMini cho mình hỏi cái dòng lệnh bên dưới có phải là (Nếu sheet nào có tên là chữ số thì nó mới tổng hợp phải không 2 anh?)
If IsNumeric(Sh.Name) Then
 
Upvote 0
nvh611 đã viết:
...anh @VetMini cho mình hỏi cái dòng lệnh bên dưới có phải là (Nếu sheet nào có tên là chữ số thì nó mới tổng hợp phải không 2 anh?)
If IsNumeric(Sh.Name) Then
Nhấp chuột vào đây để mở rộng...
Bởi vì bạn đặt tên sheet là 1, 2, 3 cho nên bài kia mới làm vậy.
Bình thường thì người ta đặt một array sheets
Forv Each Sh In Array(WorkSheets("tên sheet 1"), WorkSheets("tên sheet 2"), WorkSheets("tên sheet 3", ...) )
Tức là trong trường hợp bài này:
Forv Each Sh In Array(WorkSheets("1"), WorkSheets("2"), WorkSheets("3") )
 
Upvote 0
VetMini đã viết:
Bởi vì bạn đặt tên sheet là 1, 2, 3 cho nên bài kia mới làm vậy.
Bình thường thì người ta đặt một array sheets
Forv Each Sh In Array(WorkSheets("tên sheet 1"), WorkSheets("tên sheet 2"), WorkSheets("tên sheet 3", ...) )
Tức là trong trường hợp bài này:
Forv Each Sh In Array(WorkSheets("1"), WorkSheets("2"), WorkSheets("3") )
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh @VetMini đã giải thích
Anh cho mình một phương án tốt nhất để dễ làm và dễ hiểu được không?
Thật sự mình đọc trên diễn đàn chắc chắn là bạn nhiều tuổi hơn mình.
Nhưng điều đó không quan trọng lắm
Anh @VetMini có thể viết code ngán gọn hơn được không?
à quên anh @SA_DQ nữa
 
Upvote 0
1 cách ngắn gọn hơn chỉ có ý nghĩa thẩm mỹ thôi nha:
Tách macro đó làm 2: Cha & con;
Cha truền cho con các tham biến cần thiết về Dòng, Cột & Vùng ô
Bạn thử tìm hiểu chuyện đó coi xem sao(?!)
 
Upvote 0
nvh611 đã viết:
...Anh cho mình một phương án tốt nhất để dễ làm và dễ hiểu được không?

...Anh có thể viết code ngán gọn hơn được không?
Nhấp chuột vào đây để mở rộng...
Hai điều trên thường ít khi đi với nhau.
Làm theo điều thứ hai thường phải hy sinh điều thứ nhất.
 
Upvote 0
VetMini đã viết:
Bởi vì bạn đặt tên sheet là 1, 2, 3 cho nên bài kia mới làm vậy.
Bình thường thì người ta đặt một array sheets
Forv Each Sh In Array(WorkSheets("tên sheet 1"), WorkSheets("tên sheet 2"), WorkSheets("tên sheet 3", ...) )
Tức là trong trường hợp bài này:
Forv Each Sh In Array(WorkSheets("1"), WorkSheets("2"), WorkSheets("3") )
Nhấp chuột vào đây để mở rộng...
Lại phải phiền anh @VetMini chỉnh giúp
Mình sửa như này thì nó sai ở đâu vậy anh @VetMini giúp mình với
Cảm ơn anh.
Mã: 
Sub CopyFrom3Sheets_2()
 Dim Dong As Long
 Dim Cot1 As Integer, Cot2 As Integer, Cot3 As Integer
 Dim Sh As Worksheet, Rng As Range
 'Set Sh = Array(Worksheets("1"), Worksheets("2"), Worksheets("3"))

 'On Error Resume Next
With Sheets("THop")
    '[A3:Z49].EntireRow.Delete
    Cot1 = 2
    Cot2 = 2
    Cot3 = 2
    'For Each Sh In ThisWorkbook.Worksheets
    For Each Sh In Array(Worksheets("1"), Worksheets("2"), Worksheets("3"))

        Dong = 3
        'If IsNumeric(Sh.Name) Then
            'Cot = Choose(CInt(Sh.Name), 2, 8, 14, 35)
            
            Set Rng = Sh.[b3].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot1)
            Cot1 = Cot1 + Rng.Columns.Count + 3
            
            Dong = Dong + Rng.Rows.Count + 2
            Set Rng = Sh.[G16].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot2)
            Cot2 = Cot2 + Rng.Columns.Count + 3
            
            Dong = Dong + 2 + Rng.Rows.Count
            Set Rng = Sh.[e31].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot3)
            Cot3 = Cot3 + Rng.Columns.Count + 3
        'End If
    Next Sh
End With
End Sub
 
Upvote 0
nvh611 đã viết:
Lại phải phiền anh @VetMini chỉnh giúp
Mình sửa như này thì nó sai ở đâu vậy anh @VetMini giúp mình với
Cảm ơn anh.
Mã: 
Sub CopyFrom3Sheets_2()
Dim Dong As Long
Dim Cot1 As Integer, Cot2 As Integer, Cot3 As Integer
Dim Sh As Worksheet, Rng As Range
'Set Sh = Array(Worksheets("1"), Worksheets("2"), Worksheets("3"))

'On Error Resume Next
With Sheets("THop")
    '[A3:Z49].EntireRow.Delete
    Cot1 = 2
    Cot2 = 2
    Cot3 = 2
    'For Each Sh In ThisWorkbook.Worksheets
    For Each Sh In Array(Worksheets("1"), Worksheets("2"), Worksheets("3"))

        Dong = 3
        'If IsNumeric(Sh.Name) Then
            'Cot = Choose(CInt(Sh.Name), 2, 8, 14, 35)
           
            Set Rng = Sh.[b3].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot1)
            Cot1 = Cot1 + Rng.Columns.Count + 3
           
            Dong = Dong + Rng.Rows.Count + 2
            Set Rng = Sh.[G16].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot2)
            Cot2 = Cot2 + Rng.Columns.Count + 3
           
            Dong = Dong + 2 + Rng.Rows.Count
            Set Rng = Sh.[e31].CurrentRegion
            Rng.Copy Destination:=.Cells(Dong, Cot3)
            Cot3 = Cot3 + Rng.Columns.Count + 3
        'End If
    Next Sh
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Anh @VetMini sửa giúp mình tại sao nó lại không chạy nhỉ.
Sau khi đã sửa một chút síu theo chỉ dẫn của anh
Thế mà nó lại không chạy?
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

L
File Excel nặng chưa tìm được lý do ở đâu . Mong các bác hỗ trợ ! (1 người xem)
Trả lời
5
Đọc
81
PhanTuHuong
PhanTuHuong
H
Tổng hợp Công Nợ theo Công trình (1 người xem)
Trả lời
13
Đọc
149
le_vis
L
U
VB tính tổng số cell trong 1 hàng có cùng màu với 1 cell so sánh ở cột khác
Trả lời
5
Đọc
56
Hoàng Tuấn 868
H
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU
Trả lời
10
Đọc
596
binhminh1408
B
H
Giúp mình ghép nhiều file thành một file.
Trả lời
10
Đọc
394
hanhnguyen120221cuty
H
Nguyễn Duy Tuân
Hàm BS COMBINLIST Liệt kê các giá trị tổ hợp, chỉnh hợp, chỉnh hợp không lặp | Add-in A-Tools v10
    • Yêu thích
    • Thích
Trả lời
17
Đọc
1K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
18
Đọc
1K
Hoàng Tuấn 868
H
HeSanbi
  • Đã giải quyết
ZaloExcel v2.95: Gửi tin nhắn, hình ảnh, bảng, biểu đồ, tập tin, tạo nhóm, thu thập tin nhắn
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
60
Đọc
19K
HeSanbi
HeSanbi
J
Xử lý các file Excel bị nặng sau nhiều năm sử dụng
Trả lời
12
Đọc
2K
lưu tuấn dũng
L
hongphuong1997
Nên sử dụng Chatgpt hay Copilot (1 người xem)
    • Yêu thích
Trả lời
11
Đọc
247
befaint
befaint
D
XIN HỖ TRỢ VỀ FILE EXCEL TỔNG HỢP ĐIỂM THI ĐUA
Trả lời
0
Đọc
39
DươngH193
D
L
Xin file lịch báo giảng tự động
Trả lời
2
Đọc
96
linedraw84
L
H
Xin File Theo dõi công nợ (1 người xem)
Trả lời
0
Đọc
71
HangktGTN
H
N
Tạo file Excel dùng VBA để lấy và nối dữ liệu từ các files excel
Trả lời
39
Đọc
6K
hungnv_thct2026
H
S
Power BI. Một quá trình đòi hỏi sự kiên nhẫn. (1 người xem)
Trả lời
4
Đọc
219
SteveNguyen1991
S
SA_DQ
  • Question Question
Bài tập VBA cho những người rỗi. . . đủ thứ! (1 người xem)
    • Ngạc nhiên
    • Cười
    • Yêu thích
Trả lời
21
Đọc
768
Phuocam
Phuocam
H
  • Question Question
Dò tìm giá trị từ bảng khác theo cột
Trả lời
5
Đọc
124
ptm0412
ptm0412
L
Cách bật/tắt đèn led thứ 3 trên bàn phím cơ
Trả lời
1
Đọc
80
HUONGHCKT
H
C
Không thể group cột trong excel
Trả lời
10
Đọc
12K
ptm0412
ptm0412
A
  • Question Question
Em nhờ anh/chị/em/chú/bác giúp em viết code tổng hợp dữ liệu. em tính công thức nó nặng quá. em cám ơn
Trả lời
14
Đọc
1K
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom