Hỏi {Max(if())} = VBA

[ThuNghi]

Tôi có range soct như sau:
070701; 070702;...;070799;070801;070802;070803
Tôi dùng code sau để lấy max của số CT bắt đầu là 4 ký tự đầu, số CT là 2 ký tự cuối.

Sub GanSoCT()
    Cells(2, 2).Value = "0708"
    Cells(2, 3).FormulaArray = "=MAX(IF(LEFT(SoCT,4)=R2C2,RIGHT(SoCT,2),0)+1)"
End Sub

Như vậy phải gán "0708" vào Cells(2,2), không hay
Nhờ các bạn chỉ hộ code mà cần phải Cells(2,2) và dùng WorksheetFunction. Đại khái như sau
i = "0708"
Cells(2, 3).FormulaArray = WorksheetFunction.Max(IIf(Left(Range("SoCT"), 4) = i, Right(Range("SoCT"), 2), 0) + 1)
Cám ơn nhiều!

 

[Nguyễn Duy Tuân]

Bạn xem thế này được không.

Sub GanSoCT()
    'Cells(2, 2).Value = "0708"
    Cells(2, 3).FormulaArray = "=MAX(IF(LEFT(SoCT,4)=""" & Cells(2, 2).Value & """,RIGHT(SoCT,2),0)+1)"
    Cells(2, 3).Value =Cells(2, 3).Value 
End Sub

 

[ThuNghi]

Thanks! Có thể gắn WorksheetFunction.Max vào để bỏ bớt một số dấu ". Công thức mảng có dùng WorksheetFunction. được không.