xem lại đoạn nàybạn nào biết lỗi chỗ nào chỉ mình sửa lại với. cả ngày nay mò mà vẫn ko hiện hết được kết quả ở cột F
With Sheets("DM")
sArr = .Range("B7", .Range("B7").End(xlDown)).Resize(, 10).Value
End With
Cảm ơn bạn đã hỗ trợ!xem lại đoạn này
xem lại sArr được mấy dòng?Mã:With Sheets("DM") sArr = .Range("B7", .Range("B7").End(xlDown)).Resize(, 10).Value End With
Rồi dò tiếp các cái sai khác có thể có
With Sheets("DM")
sArr = .Range("D7", .Range("D7").End(xlDown)).Resize(, 8).Value
End With
Cột DM!B có các ô trống đan xen nên không thể dùng xlDown được.Cảm ơn bạn đã hỗ trợ!
Nếu để nguyên dòng như trên thì hiện được kết quả ở ô F4 và F6
nhưng khi mình đổi vùng dò tìm từ cột B sang cột D như bên dưới thì lại được kết quả ở ô F4 và F9
Có thể giải thích giúp mình vì sao lại ko hiện hết các kết quả còn lại ko ạ, mình cảm ơn!Mã:With Sheets("DM") sArr = .Range("D7", .Range("D7").End(xlDown)).Resize(, 8).Value End With
With Sheets("DM")
sArr = .Range("B7", .Range("B7").End(xlDown)).Resize(, 10).Value
End With
With Sheets("DM")
sArr = .Range("B7", .Range("B" & Rows.Count).End(xlUp)).Resize(, 10).Value
End With