Gộp Dữ Liệu (1 người xem)

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)
vuongtoituonglai

vuongtoituonglai

Thành viên thường trực
Tham gia
7/5/14
Bài viết
350
Được thích
47
Mình đang gặp vấn đề khó khan nhờ các bạn ở GPE giúp dùm.
Mình có một Ma trận có nhiều loại going nhau nằm ở nhiều dòng khác nhau, nhờ các bạn giúp dùm loại nào có mã going nhau thì gộp lại(gộp cả ma trận) số cột số dòng có nhiều dòng nhiều cột. Mời các bạn xem file đính kèm
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Bài này hoàn toàn có thề dùng hàm SUMIF()

Bạn tiếp đi!
 
Upvote 0
[Thongbao]File này dùng hàm SUMIF()

Bạn tiếp đi![/Thongbao]
 

File đính kèm

Upvote 0
Bạn hiểu nhầm ý mình rồi đầu tiên chỉ có 1 dữ kiện(phần có tô màu), dữ kiện 2 không có. sau khi dung code hay dung hàm gì đó thì sẽ cho ra dữ kiện 2.
Nhấp chuột vào đây để mở rộng...

Tạm gọi vùng dữ liệu có tô màu là CSDL, & vùng còn lại là vùng TH; Bạn ngó lại xem trong vùng TH có công thức không?

Hay là bạn ngồi nhằm lớp excel rồi cũng nên!
 
Upvote 0
SA_DQ đã viết:
Tạm gọi vùng dữ liệu có tô màu là CSDL, & vùng còn lại là vùng TH; Bạn ngó lại xem trong vùng TH có công thức không?

Hay là bạn ngồi nhằm lớp excel rồi cũng nên!
Nhấp chuột vào đây để mở rộng...

Trong vùng TH có sử dụng hàm SUMIF mà bạn. Theo mình nghỉ vùng TH phải dùng code mới có được.
 
Upvote 0
Nhìn cái hình trong file Matrix.xlsx thì thấy một chữ PIVOT tổ bố. Đã thử Pivot Table chưa?
Tại chủ thớt bị ám ảnh bởi code cho nên cái gì cũng nghĩ rằng code mới giải quyết được.
 
Upvote 0
VetMini đã viết:
Nhìn cái hình trong file Matrix.xlsx thì thấy một chữ PIVOT tổ bố. Đã thử Pivot Table chưa?
Tại chủ thớt bị ám ảnh bởi code cho nên cái gì cũng nghĩ rằng code mới giải quyết được.
Nhấp chuột vào đây để mở rộng...
Trong trường họp này mình chưa dung PIVOT nhưng mình nghĩ là dung không được. Bạn có cách thì chỉ mình đi.
Cảm ơn trước nhé.
 
Upvote 0
vuongtoituonglai đã viết:
Trong trường họp này mình chưa dung PIVOT nhưng mình nghĩ là dung không được. Bạn có cách thì chỉ mình đi.
Cảm ơn trước nhé.
Nhấp chuột vào đây để mở rộng...
Muốn code thì có code
PHP: 
Sub tonghop()
Dim nguon(), kq(1 To 65536, 1 To 11), i, j, k, n
nguon = Range([A2], [A65536].End(3)).Resize(, 11).Value
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To 11
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To 11
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
[M2].Resize(k, 11) = kq
End Sub
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
quanghai1969 đã viết:
Muốn code thì có code
PHP: 
Sub tonghop()
Dim nguon(), kq(1 To 65536, 1 To 11), i, j, k, n
nguon = Range([A2], [A65536].End(3)).Resize(, 11).Value
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To 11
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To 11
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
[M2].Resize(k, 11) = kq
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, Code có vấn đề rồi bạn ơi.
1. tiêu đề bị ngược bên dưới
2. dữ lieu tang gấp đôi so với thực tế
3.Insert thêm cột code chạy không đúng
 
Upvote 0

File đính kèm

Upvote 0
Mình dùng PIVOT TABLE thử nhưng khi kéo các cột còn lại xuống SIGMA VALUES thì nó tự động biến thành "Count of..." và chỉ đếm thôi mà không tính SUM. Mình phải chỉnh lại từng cái.
Có cách nào nhanh hơn anh VietMini chỉ giúp mình với.
 
Upvote 0
vuongtoituonglai đã viết:
Code chạy OK nhưng khi insert thêm cột vào thì có vẻ không ổn lắm, bạn xem lại dùm nhé, dùng code để chạy phần tiêu đề nhé. Cảm ơn bạn đã quan tâm vấn đề này.
Nhấp chuột vào đây để mở rộng...
Chạy code và xem kết quả ở sheet2
PHP: 
Sub tonghop()
Dim tieude()
Dim nguon(), kq(1 To 65536, 1 To 11), i, j, k, n
Sheet1.Select
tieude = Range([A1], [A1].End(2)).Value
nguon = Range([A2], [A65536].End(3)).Resize(, UBound(tieude, 2)).Value
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To 11
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To UBound(tieude, 2)
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
Sheet2.[A1].Resize(, UBound(tieude, 2)) = tieude
Sheet2.[A2].Resize(k, UBound(tieude, 2)) = kq
End Sub
 
Upvote 0
Vu Dinh Duy đã viết:
Mình dùng PIVOT TABLE thử nhưng khi kéo các cột còn lại xuống SIGMA VALUES thì nó tự động biến thành "Count of..." và chỉ đếm thôi mà không tính SUM. Mình phải chỉnh lại từng cái.
Có cách nào nhanh hơn anh VietMini chỉ giúp mình với.
Nhấp chuột vào đây để mở rộng...

Rất tiếc là ngay cả Excel 2013 cũng chưa có công cụ nào nhanh hơn giải pháp "upload file, download code" cả.

=== Bổ sung 11/05/2014 12:15am ===

Luật chung của Pivot Table là "nếu trong cột có ô trống hoặc có ô không phải là số thì mặc định là Count; nếu các ô đều có số thì mặc định là Sum"

Nếu muốn PT mặc định là Sum thì tìm cách để các ô trống có trị là 0. Một trong những mẹo để Excel "tưởng" ô có trị là dùng dynamic named range.
 
Lần chỉnh sửa cuối:
Upvote 0
quanghai1969 đã viết:
Chạy code và xem kết quả ở sheet2
PHP: 
Sub tonghop()
Dim tieude()
Dim nguon(), kq(1 To 65536, 1 To 11), i, j, k, n
Sheet1.Select
tieude = Range([A1], [A1].End(2)).Value
nguon = Range([A2], [A65536].End(3)).Resize(, UBound(tieude, 2)).Value
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To 11
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To UBound(tieude, 2)
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
Sheet2.[A1].Resize(, UBound(tieude, 2)) = tieude
Sheet2.[A2].Resize(k, UBound(tieude, 2)) = kq
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, có cách nào khi insert them cột, bớt cột mà code không cần chỉnh sửa không bạn, code hiện tại từ cột 1 đến 11(For j=1 To 11) mình chỉnh code số cột là 100 thì báo lỗi.
 
Lần chỉnh sửa cuối:
Upvote 0
vuongtoituonglai đã viết:
Cảm ơn bạn, có cách nào khi insert them cột, bớt cột mà code không cần chỉnh sửa không bạn, code hiện tại từ cột 1 đến 11(For j=1 To 11) mình chỉnh code số cột là 100 thì báo lỗi.
Nhấp chuột vào đây để mở rộng...
Code này chắc là ổn rồi đó. Muốn thêm hay bớt cột gì cũng được.
PHP: 
Sub tonghop()
Dim nguon(), tieude(), kq(), i, j, k, n, cot
Sheet1.Select
tieude = Range([A1], [A1].End(2)).Value
cot = UBound(tieude, 2)
nguon = Range([A2], [A65536].End(3)).Resize(, cot).Value
ReDim kq(1 To 65536, 1 To cot)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To 11
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To cot
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
Sheet2.[A1].Resize(, cot) = tieude
Sheet2.[A2].Resize(k, cot) = kq
End Sub
 
Upvote 0
quanghai1969 đã viết:
Code này chắc là ổn rồi đó. Muốn thêm hay bớt cột gì cũng được.
PHP: 
Sub tonghop()
Dim nguon(), tieude(), kq(), i, j, k, n, cot
Sheet1.Select
tieude = Range([A1], [A1].End(2)).Value
cot = UBound(tieude, 2)
nguon = Range([A2], [A65536].End(3)).Resize(, cot).Value
ReDim kq(1 To 65536, 1 To cot)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To 11
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To cot
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
Sheet2.[A1].Resize(, cot) = tieude
Sheet2.[A2].Resize(k, cot) = kq
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn đã nhiệt tình giúp đở, dữ lieu của mình không hiểu sao chạy code không được bạn xem lại dùm mình nhé.
Mình up file lên nhờ bạn kiểm tra dùm mình sao code không chạy được
, cảm ơn bạn nhiều
 

File đính kèm

  • 1.jpg
    1.jpg
    75.9 KB · Đọc: 8
  • Matrix.xlsm
    Matrix.xlsm
    17.8 KB · Đọc: 2
Lần chỉnh sửa cuối:
Upvote 0
vuongtoituonglai đã viết:
Mình đang gặp vấn đề khó khan nhờ các bạn ở GPE giúp dùm.
Mình có một Ma trận có nhiều loại going nhau nằm ở nhiều dòng khác nhau, nhờ các bạn giúp dùm loại nào có mã going nhau thì gộp lại(gộp cả ma trận) số cột số dòng có nhiều dòng nhiều cột. Mời các bạn xem file đính kèm
Nhấp chuột vào đây để mở rộng...

Bạn tham khảo ở đây

http://www.giaiphapexcel.com/forum/showthread.php?90556-Cách-dồn-dòng-trong-excel
 
Upvote 0
vuongtoituonglai đã viết:
Cảm ơn bạn đã nhiệt tình giúp đở, dữ lieu của mình không hiểu sao chạy code không được bạn xem lại dùm mình nhé.
Nhấp chuột vào đây để mở rộng...

Bạn up cái hình và nói là dữ liệu của bạn không chạy được thì ai biết đâu mà giúp tiếp. Đoạn code trên về nguyên lý là ổn rồi. Bạn nào có thời gian thì test hộ chủ topic nha.
 
Upvote 0
Chủ thớt xem thế này được không ?
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Bạn up cái hình và nói là dữ liệu của bạn không chạy được thì ai biết đâu mà giúp tiếp. Đoạn code trên về nguyên lý là ổn rồi. Bạn nào có thời gian thì test hộ chủ topic nha.
Nhấp chuột vào đây để mở rộng...

Mình up file lên, bạn xem dùm mình sao code chạy không được. Cảm ơn
 

File đính kèm

Upvote 0
vuongtoituonglai đã viết:
Mình up file lên, bạn xem dùm mình sao code chạy không được. Cảm ơn
Nhấp chuột vào đây để mở rộng...
Mình sót 1 chổ chưa điều chỉnh nên code bị lỗi
PHP: 
Sub tonghop()
Dim nguon(), tieude(), kq(), i, j, k, n, cot
Sheet1.Select
tieude = Range([A1], [A1].End(2)).Value
cot = UBound(tieude, 2)
nguon = Range([A2], [A65536].End(3)).Resize(, cot).Value
ReDim kq(1 To 65536, 1 To cot)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To cot
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To cot
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
Sheet2.[A1].Resize(, cot) = tieude
Sheet2.[A2].Resize(k, cot) = kq
End Sub
 
Upvote 0
quanghai1969 đã viết:
Mình sót 1 chổ chưa điều chỉnh nên code bị lỗi
PHP: 
Sub tonghop()
Dim nguon(), tieude(), kq(), i, j, k, n, cot
Sheet1.Select
tieude = Range([A1], [A1].End(2)).Value
cot = UBound(tieude, 2)
nguon = Range([A2], [A65536].End(3)).Resize(, cot).Value
ReDim kq(1 To 65536, 1 To cot)
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
       If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            For j = 1 To cot
                kq(k, j) = nguon(i, j)
            Next
        Else
            n = .Item(nguon(i, 1))
            For j = 2 To cot
                kq(n, j) = kq(n, j) + nguon(i, j)
                If kq(n, j) = 0 Then kq(n, j) = Empty
            Next
       End If
    Next
End With
Sheet2.[A1].Resize(, cot) = tieude
Sheet2.[A2].Resize(k, cot) = kq
End Sub
Nhấp chuột vào đây để mở rộng...
Code này thì quá đạt rồi, cảm ơn bạn nhiều.
 
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
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox (1 người xem)
    • Cười
Trả lời
3
Đọc
61
Hoàng Tuấn 868
H
SA_DQ
Trò chơi đoán số & gợi ý của Copilot
Trả lời
0
Đọc
20
SA_DQ
SA_DQ
thanhss
Tự động lấy dữ liệu từ các sheet khác đưa vào sheet tổng hợp khi chọn Ngày hoặc tháng hoặc năm
Trả lời
23
Đọc
302
LamNA
LamNA
phuongnam366377
VbaTools – Bộ công cụ mở rộng cho VBA trong Excel (3 người xem)
Trả lời
8
Đọc
179
phuongnam366377
phuongnam366377
Tuanba1992
Lập trình Excel có thể dùng ngôn ngữ lập trình nào? (1 người xem)
Trả lời
7
Đọc
301
Tuanba1992
Tuanba1992
L
Nhờ giúp đỡ công thức tính công từ dữ liệu trích xuất ra từ File chấm công
Trả lời
0
Đọc
43
lưu tuấn dũng
L
H
Excel không lọc được toàn bộ dữ liệu
Trả lời
0
Đọc
43
Hongphong123
H
H
Tổng hợp Công Nợ theo Công trình
Trả lời
27
Đọc
430
HangktGTN
H
H
  • Đã khóa
Công Thức Tính Tổng Công Nợ Khách Hàng
Trả lời
1
Đọc
50
ptm0412
ptm0412
B
Mình có làm đoạn code VBA trong file access mà cứ báo lỗi nhờ mọi người hướng dẫn
Trả lời
8
Đọc
150
ptm0412
ptm0412
GPE-Trợ Lý
CHÀO MỪNG 80 NĂM QUỐC KHÁNH (1 người xem)
    • Thích
    • Yêu thích
Trả lời
0
Đọc
62
GPE-Trợ Lý
GPE-Trợ Lý
vuthaiha90
Lọc dữ liệu không trùng và trả kết quả về 1 dòng
Trả lời
7
Đọc
294
tranhungdao12a3
T
T
Nhờ anh chị xem giúp file bị lỗi gì mà chạy rất chậm/lag - File tính tiền nhà trọ
Trả lời
10
Đọc
407
Thaik05
T
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 (1 người xem)
    • Thích
    • Yêu thích
Trả lời
24
Đọc
2K
nguyendang95
N
J
Xử lý các file Excel bị nặng sau nhiều năm sử dụng
Trả lời
13
Đọc
2K
huhumalu
H
hongphuong1997
Nên sử dụng Chatgpt hay Copilot
    • Yêu thích
Trả lời
12
Đọc
409
phuongnam366377
phuongnam366377
L
File Excel nặng chưa tìm được lý do ở đâu . Mong các bác hỗ trợ !
Trả lời
5
Đọc
155
PhanTuHuong
PhanTuHuong
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
114
Hoàng Tuấn 868
H
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU (1 người xem)
Trả lời
10
Đọc
680
binhminh1408
B
H
Giúp mình ghép nhiều file thành một file. (1 người xem)
Trả lời
10
Đọc
493
hanhnguyen120221cuty
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