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

Dùng hàm IF và hàm Vlookup ??Chia sẻ File Excel kế toán nội bộ miễn phí Hỏi đáp về cách làm Hỏi tí về sum if Mn ơi, có nhóm nào về kế toán ở zalo thì add e 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- Hàm tìm ngày trong khoảng thời gian xác định Không thể copy paste dữ liệu do sub Worksheet_DeActivate() SANG DỮ LIỆU TỪ FILE 1 VÀO FILE 2 THEO THỨ TỰ. Định dạng số bị lỗi Xem thêm