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

hỏi đáp về excel kế toán -FULL BỘ TÀI LIỆU SINH TRẮC VÂN TAY CỰC HIẾM- tro giup em voi a ?? Ai Cần File "Excel Kiểm Tra Báo Cáo Tài Chính" Không ?? Mua máy tính Texas BA II Plus Ac cho e hỏi với ạ! Chị đồng nghiệp cty e trước đây làm cho cty khác đã dk So sánh chênh lệch dữ liệu Chào các bạn! Chào các bạn! Mình xin chia sẻ với các bạn một file tài liệu ae ơi cho sửa lỗi vba về hàm nội suy 1 chiều này cho em với 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 Xem thêm