Tìm số lớn nhất, lớn 2....trong 1 mảng theo điều kiện cho trước.

[V?n Tu?n]

Em có 1 bảng tính. Trong đó nhiều mã (Cột J) Mỗi mã tương ứng nhiều lot (Cột B). E muốn viết code để: Dựa vào cột J để biết Lot đó là thuộc mã nào. Và nếu mã đó trùng với mã ở cột AA sẽ lấy Lot ở cột B
E muốn sắp xếp những lot đó tương ứng với mã của nó theo chiều giảm dần.
VD: Mã PSQF1030WA-VB ở cột AA sẽ có 4 LOT tương ứng ở cột B: 111958, 112774, 113349, 114384
Vì thế em muốn ở cột AB sẽ là lot lớn nhất: 114384 sau đó đến AC: 113349, AD: 112774, AE: 111958
Em có viết code trong đó nhưng chỉ chạy khoảng 500 mã là ok. Nếu lớn hơn thì cũng dc nhưng chắc mất 30 phút. [IMG]images/smilies/cry.gif[/IMG]
Các thầy chỉ giúp em nhé. Em cam ơn!

Code của em:

"Sub test()
Dim a, b, k As Long
solot = Application.WorksheetFunction.CountA(Range("B:B")) + 8
For a = 10 To 2137
For b = solot To 10 Step -1
For k = 28 To 45
If Cells(a, 27) = Cells(b, 10) And Cells(a, k) = "" Then
Cells(a, k) = Cells(b, 2)
Exit For
End If
Next
Next
Next
End Sub"

View more random threads:

• Có ai giúp em lấy lại các file bị phần mềm Protected Folder1.2 mã hóa không đọc được
• Nhập và lưu trữ số liệu trên exel 2003
• Làm sao để khi thay đổi kích thước ô, dữ liệu vẫn hiển thị đầy đủ?
• không vào được facebook
• Lấy 2 số lẻ sau dấu phẩy
• Tính tổng giờ làm từ Bảng chấm công
• Chuyển định dạng ngày tháng năm
• Công thức cộng dồn
• Giúp em chuyển danh sách này thành viết hoa toàn bộ với
• nhờ giúp tính số tiền cần đầu tư , biết lãi suất và số năm

[thuongbodo]

Đọc ko hiểu ý định của bạn ! [IMG]images/smilies/a43.gif[/IMG][IMG]images/smilies/a43.gif[/IMG]

[bichphuong]

Đọc ko hiểu ý định của bạn ! [IMG]images/smilies/a43.gif[/IMG][IMG]images/smilies/a43.gif[/IMG]

Trong file đính kèm bác sẽ dễ hiểu hơn. [IMG]images/smilies/a44.gif[/IMG]

[nhanhmuavn201]

Trong file đính kèm bác sẽ dễ hiểu hơn. [IMG]images/smilies/a44.gif[/IMG]

tôi cũng ko hiểu???(đã đọc cả diễn giải trong file lẫn code)
mã làm sao mà lớn nhất?
số lượng mã nhiều nhất?

[bietthugeleximco]

Đọc ko hiểu ý định của bạn ! [IMG]images/smilies/a43.gif[/IMG][IMG]images/smilies/a43.gif[/IMG]

Không sửa giúp em code này:

"Sub test()
Dim a, b, k As Long
solot = Application.WorksheetFunction.CountA(Range("B:B")) + 8
For a = 10 To 2137
For b = solot To 10 Step -1
For k = 28 To 45
If Cells(a, 27) = Cells(b, 10) And Cells(a, k) = "" Then
Cells(a, k) = Cells(b, 2)
Exit For
End If
Next
Next
Next
End Sub"

[tddhcm148]

Trong file đính kèm bác sẽ dễ hiểu hơn. [IMG]images/smilies/a44.gif[/IMG]

Mình coi trỏng file đính kèm mà. Mà vẫn không hiểu cho lắm. Mã lớn là mã gì ? căn cứ vào gì để biết nó lớn hay nhỏ ?
Bạn nên đưa ra 1 vài đáp án minh họa thì hay hơn !

[halalavn276]

tôi cũng ko hiểu???(đã đọc cả diễn giải trong file lẫn code)
mã làm sao mà lớn nhất?
số lượng mã nhiều nhất?

Ax, em sorry. Lot lớn nhất ajh.
Lot là ở cột B
Mã là ở cột AA
Mỗi mã cột AA sẽ có nhiều Lot tương ứng ở cột B.
Lot ở cột B sẽ tương ứng với Mã ở cột J.

[canhchimviet]

Mình coi trỏng file đính kèm mà. Mà vẫn không hiểu cho lắm. Mã lớn là mã gì ? căn cứ vào gì để biết nó lớn hay nhỏ ?
Bạn nên đưa ra 1 vài đáp án minh họa thì hay hơn !

Thế này: Mã PSQF1030WA-VB ở cột AA sẽ có 4 LOT tương ứng ở cột B: 111958, 112774, 113349, 114384.
Vì thế em muốn ở cột AB sẽ là lot lớn nhất: 114384 sau đó đến AC: 113349, AD: 112774, AE: 111958

[xenangbishamon]

Thế này: Mã PSQF1030WA-VB ở cột AA sẽ có 4 LOT tương ứng ở cột B: 111958, 112774, 113349, 114384.
Vì thế em muốn ở cột AB sẽ là lot lớn nhất: 114384 sau đó đến AC: 113349, AD: 112774, AE: 111958

xem file, file nặng ko tải lên dc
https://www.dropbox.com/s/m6sga3qfmg...Help.xlsb?dl=0

[trangssuc]

xem file, file nặng ko tải lên dc
https://www.dropbox.com/s/m6sga3qfmg...Help.xlsb?dl=0

Cảm ơn bác. Nhưng quả thực là nặng quá. @@ Như thế em khó xử lý những bước tiếp theo trên file đó zùi. E đang tính làm code thôi.