Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Hi mọi người, Hi mọi người, Cho mình hỏi có cách nào để lấy dữ liệu nhanh như

PhongTran

Hi mọi người,
Cho mình hỏi có cách nào để lấy dữ liệu nhanh như vùng từ A đến G chuyển sang vùng I đến S như dòng highlight màu vàng không vậy?
Cảm ơn mọi người nhiều.
https://facebook.com/569100319856001_1296628933769799

SonDoan

Bạn phải fill toàn bộ dữ liệu cột A, B xuống các ô trống bên dưới, Sau đó dùng sumifs.
Cách fill nhanh bạn tham khảo lại bài hướng dẫn của Thanh.
Còn sumifs thì đơn giản mà đúng không
Còn cái Ref và shape thì dùng Vlookup. Lưu ý data của bạn mình thấy có cùng 1 No, cùng 1 group nhưng có tới 2 giá trị Ref và shape --> phải có nguyên tắc lấy giá trị nào mới tính tiếp được.

SonDoan

Cách thứ 2 là bạn fill data xong thì dùng pivot table cho nhanh nhé

SonDoan

http://www.mediafire.com/file/uqv13y0aips1syw/15717.xlsx
Mình làm cho bạn theo phương án Pivot, bạn xem thử nhé.

TranDuyNguyen

Bạn chèn cột phụ H, như mình, thì vẫn có thể tính toán ra được.
Ví dụ H3: =IF(B3<>"",B3,H2)

Khi có cột phụ rồi, bạn dùng Pivot cũng được, hoặc dùng như bảng của bạn với công thức phù hợp.

File của bạn: https://drive.google.com/open?id=0BwaYppo7ZXFsbEVaOHZQMWgxX2c

SonDoan

Gửi lại Phong Trần file chạy VBA: nhớ Enable macro khi nó hỏi. Khi cần tổng hợp thì nhấn nút "tổng hợp" màu xanh.
http://www.mediafire.com/file/7jskkd5k38duscg/15717.xlsm
Code tham khảo:
Sub TongHop()
Dim i as Integer
Dim as Integer
Dim KQarr(1 To 10000, 1 To 11)
lr = Sheets("Copy Value").Range("D" & Rows.Count).End(xlUp).Row
DataArr = Sheets("Copy Value").Range("A3:G" & lr).Value
j = 0
For i = LBound(DataArr, 1) To UBound(DataArr, 1)
If DataArr(i, 1) <> "" Then
j = j + 1
KQarr(j, 1) = DataArr(i, 1)
KQarr(j, 2) = DataArr(i, 2)
If j > 1 Then
KQarr(j - 1, 3) = Mid(KQarr(j - 1, 3), 3, Len(KQarr(j - 1, 3)))
KQarr(j - 1, 4) = Mid(KQarr(j - 1, 4), 3, Len(KQarr(j - 1, 4)))
KQarr(j - 1, 5) = Mid(KQarr(j - 1, 5), 3, Len(KQarr(j - 1, 5)))
KQarr(j - 1, 6) = Mid(KQarr(j - 1, 6), 3, Len(KQarr(j - 1, 6)))
KQarr(j - 1, 8) = Mid(KQarr(j - 1, 8), 3, Len(KQarr(j - 1, 8)))
KQarr(j - 1, 9) = Mid(KQarr(j - 1, 9), 3, Len(KQarr(j - 1, 9)))
KQarr(j - 1, 10) = Mid(KQarr(j - 1, 10), 3, Len(KQarr(j - 1, 10)))
KQarr(j - 1, 11) = Mid(KQarr(j - 1, 11), 3, Len(KQarr(j - 1, 11)))
End If
Else
If DataArr(i, 3) = "Alu" Then
KQarr(j, 3) = KQarr(j, 3) & "; " & DataArr(i, 6)
KQarr(j, 4) = KQarr(j, 4) & "; " & DataArr(i, 7)
KQarr(j, 5) = KQarr(j, 5) & "; " & DataArr(i, 4)
KQarr(j, 6) = KQarr(j, 6) & "; " & DataArr(i, 5)
ElseIf DataArr(i, 3) = "Dle" Then
KQarr(j, 8) = KQarr(j, 8) & "; " & DataArr(i, 6)
KQarr(j, 9) = KQarr(j, 9) & "; " & DataArr(i, 7)
KQarr(j, 10) = KQarr(j, 5) & "; " & DataArr(i, 4)
KQarr(j, 11) = KQarr(j, 6) & "; " & DataArr(i, 5)
End If
End If
Next i
KQarr(j, 3) = Mid(KQarr(j, 3), 3, Len(KQarr(j, 3)))
KQarr(j, 4) = Mid(KQarr(j, 4), 3, Len(KQarr(j, 4)))
KQarr(j, 5) = Mid(KQarr(j, 5), 3, Len(KQarr(j, 5)))
KQarr(j, 6) = Mid(KQarr(j, 6), 3, Len(KQarr(j, 6)))
KQarr(j, 8) = Mid(KQarr(j, 8), 3, Len(KQarr(j, 8)))
KQarr(j, 9) = Mid(KQarr(j, 9), 3, Len(KQarr(j, 9)))
KQarr(j, 10) = Mid(KQarr(j, 10), 3, Len(KQarr(j, 10)))
KQarr(j, 11) = Mid(KQarr(j, 11), 3, Len(KQarr(j, 11)))
Sheets("Copy Value").Range("I3:S10000").Delete
Sheets("Copy Value").Range("I3:S" & j + 2).Value = KQarr
Sheets("Copy Value").Range("I3:N" & j + 2).Borders.LineStyle = xlContinuous
Sheets("Copy Value").Range("P3:S" & j + 2).Borders.LineStyle = xlContinuous
Sheets("Copy Value").Range("I3:S" & j + 2).WrapText = True
Set DataArr = nothing
End Sub

-FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- - Ở đây có ai nhận làm thuê bài tập excel ở trường không ạ, giúp mình vs ?? ***Tặng phần mềm kế toán UNESCO Fee sử dụng vĩnh viễn các Version 6.0 - 5.1- KẾ TOÁN HÀNH CHÍNH SỰ NGHIỆP học ở đâu tại Hồ Chí Minh? Đào tạo chứng chỉ KẾ TOÁN VIÊN Trường Bồi dưỡng Cán bộ Tài chính-BTC ĐÀO TẠO KẾ TOÁN TRƯỞNG HÀNH CHÍNH SỰ NGHIỆP BỘ TÀI CHÍNH TPHCM Chuyên mục tặng phần mềm kế toán excel cho dân kế toán miễn phí mới nhất năm Mình có cái máy bị lỗi dấu chấm "." ở bên phím Numlock, khi chỉnh hệ thống Hỏi về cách chọn giá trị nhưng chỉ hiển thị thông tin nằm trong bảng đã chọn Tạo Hộp Thoại Search Thông tin Trông Ô Xem thêm