Cần giúp sửa đoạn mã trong mảng tự tạo (1 người xem)

[lbnguyen]

Mình xin được 1 đoạn mã để tạo 1 CT mảng (như file đính kèm). Mình muốn sửa lại mã để nó sắp xếp thứ tự luôn mà không được . Ai biết giúp mình với! Cảm ơn các bạn rất nhiều!
Đoạn code của nó đây nè

Option Explicit
Function Arr_(Num As Byte, Rng As Range)
Dim Rws As Long, Jj As Integer, sRng As Range, Cls As Range

Rws = Rng.Rows.Count
ReDim Arr(1 To Rws)
Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
For Each Cls In Range(sRng, Rng(Rws))
If Cls.Value = Num Then
Jj = Jj + 1
Arr(Jj) = Cls.Offset(, 1).Value
End If
Next Cls
End If
For Rws = Jj + 1 To Rws
Arr(Rws) = ""
Next Rws
Arr_ = WorksheetFunction.Transpose(Arr())
End Function

 

[ndu96081631]

Mình xin được 1 đoạn mã để tạo 1 CT mảng (như file đính kèm). Mình muốn sửa lại mã để nó sắp xếp thứ tự luôn mà không được . Ai biết giúp mình với! Cảm ơn các bạn rất nhiều!

File của bạn lưu theo định dạng xlsx thì làm gì có code. Đã không có code thì biết gì mà sửa đây?

 

[dhn46]

Mình xin được 1 đoạn mã để tạo 1 CT mảng (như file đính kèm). Mình muốn sửa lại mã để nó sắp xếp thứ tự luôn mà không được . Ai biết giúp mình với! Cảm ơn các bạn rất nhiều!

Bạn dung công thức sau, kéo xuống, kết thúc bang Ctrl + Shift + Enter

=IF(ROW(1:1)<=COUNTIF($D$8:$D$17,"="&$J$5),INDEX($E$8:$E$17,MATCH(LARGE(COUNTIF($E$8:$E$17,">"&$E$8:$E$17)*($D$8:$D$17=$J$5),ROW(1:1)),COUNTIF($E$8:$E$17,">"&$E$8:$E$17)*($D$8:$D$17=$J$5),0)),"")