Xin chào ACE trên GPE. Tình hình là mình có 1 file định dạng như đính kèm. Mình muốn Vlookup qua để lấy dữ liệu cho từng sheet theo từng dòng như mong muốn (mỗi sheet lấy 1 dòng dữ liệu theo màu đã tô). Nhưng khả năng sử dụng công thức của mình còn yếu kém. Mong sự giúp đỡ, mình xin cảm ơn!
Trích lọc số liệu dạng tóm lược (1 người xem)
- Thread starter ramboIII
- Ngày gửi
Người dùng đang xem chủ đề này
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn giải thích kĩ hơn 1 chút được không? Có kết quả mong muốn bạn nhập bằng tay nữa càng tốt!
Mình bị giới hạn file tải lên rồi. Ý mình là sheet Plan SUM nó sẽ lấy tất cả các số từ Sheet 1 qua ở dòng PP Plan cho 53 Items. Sheet Actual SUM sẽ lấy các dòng Act. Production cho 53 items, Sheet Warehouse sẽ lấy từ các dòng PP-> W/H từ sheet 1 qua. Bạn có thể hình dung không? Mình ko biết làm sao để nâng quota cho file up lên nữa, bị giới hạn có 1Mb .hic
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn vào đọc topic này nhé!
http://www.giaiphapexcel.com/forum/...QT-khi-không-thể-tải-tập-tin-đính-kèm-lên-GPE
Bạn luôn có thể đặt trên server nào đó vd. http://www.mediafire.com rồi cung cấp đường link
Mình up file lên link này rồi: http://www.mediafire.com/view/u7zvdd9b2tt0c7z/Book2.xlsx bạn giúp mình nhé.
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
Nếu chịu dùng VBA thì tặng bạn Code này xài đỡ:
[GPECODE=vb]Public Sub GPEXI()
Dim sArr(), dArr1(), dArr2(), dArr3(), I As Long, J As Long, K As Long
With Sheet1
sArr = .Range(.[L5], .[L5].End(xlDown)).Offset(, -8).Resize(, 45).Value2
End With
ReDim dArr1(1 To UBound(sArr, 1) / 5, 1 To 34)
ReDim dArr2(1 To UBound(sArr, 1) / 5, 1 To 34)
ReDim dArr3(1 To UBound(sArr, 1) / 5, 1 To 34)
For I = 1 To UBound(sArr, 1)
If sArr(I, 1) <> Empty Then
K = K + 1
dArr1(K, 1) = K: dArr2(K, 1) = K: dArr3(K, 1) = K
dArr1(K, 2) = sArr(I, 1): dArr2(K, 2) = sArr(I, 1): dArr3(K, 2) = sArr(I, 1)
dArr1(K, 3) = sArr(I, 3): dArr2(K, 3) = sArr(I, 3): dArr3(K, 3) = sArr(I, 3)
For J = 4 To 34
dArr1(K, J) = sArr(I + 1, J + 11)
dArr2(K, J) = sArr(I + 3, J + 11)
dArr3(K, J) = sArr(I + 4, J + 11)
Next J
End If
Next I
If K Then
Sheet2.[A4].Resize(K, 34) = dArr1
Sheet3.[A4].Resize(K, 34) = dArr2
Sheet4.[A4].Resize(K, 34) = dArr3
End If
End Sub[/GPECODE]
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,123
- Được thích
- 17,590
- Giới tính
- Nam
1/ Khi mở file nhớ Enable Macros
2/ Chọn Sheet1 xem hay chỉnh sửa
3/ Mở các Sheet2,3,4 khác là code đã lọc lại dữ liệu mới cho cả 3 Sheet bằng sự kiện Deactivate của Sheet1
4/ Muốn xem code thì ấn Alt+F11 xem trong Module và trong Sheet1
5/Chú ý chỉnh lại dữ liệu mỗi mã để có đủ 7 dòng như mã đầu tiên, nếu không kết quả "tèo".
Ví dụ:
Mã ở dòng 5-11 thì có 7 dòng
Mã ở dòng 96-102 chỉ có 6 dòng, không có dòng dòng Act.production. Dữ liệu không chuẩn sẽ gây khó.
............
Lần chỉnh sửa cuối:
Cảm ơn bạn nhiều lắm! Vậy nếu mình xóa từ dòng 96 đến 113 thì code có ảnh hưởng gì không bạn. Vì 3 items đó mình cũng ko dùng đến.
Hiện tại mình trả giá trị tất cả các dòng về 0. Sheet2 cho kết quả sai ở dòng 55-56, sheet3 không có kết quả ở dòng 54-56, sheet 4 OK. Bạn có thể kiểm tra giúp mình không?
Bài viết mới nhất
Vẽ mặt cắt dầm từ excel
(1 người xem)
các bác ơi giúp e hàm countif với ạ
(1 người xem)
- Question
