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

Có hàm nào làm cho chữ đậm hoặc nghiêng không nhi? Cách để tính nhanh khi nhảy lung tung tính tiền ăn mỗi bữa lỗi hàm trong wps excel giúp em giải câu excel ạ - Ở đây có ai nhận làm thuê bài tập excel ở trường không ạ, giúp mình vs ?? Trả về giá trị nếu thuộc một trong các giá tri đưa ra Mọi người giải dùm mình đề này với ạ Xếp loại học sinh áp dụng if, vlookup, and Công thức lấy năm hiện tại để ghép vào tiêu đề bảng tính Xem thêm