求EXcel函数,该如何解决

求EXcel函数
如图所示:求AO列所有001-----049打头的AU单元格写入"半成品库",用什么函数能解决这个问题,IF太麻烦了,实现不了,求解



------解决方案--------------------------------------------------------
Sub 宏2()
For i = 2 To 65535
If Left(Sheets("Sheet2").Cells(i, 1), 3) <> "" Then
j = CInt(Left(Sheets("Sheet2").Cells(i, 1), 3))
If j > 0 And j < 50 Then
Sheets("Sheet2").Cells(i, 2) = "半成品库"
End If
End If
Next i
End Sub
------解决方案--------------------------------------------------------
用if函数可以解决：
在AU列输入

VB code

=IF(AND(VALUE(LEFT(AO,3))>0,VALUE(LEFT(AO,3))<50),"半成品库","")
------解决方案--------------------------------------------------------
探讨


001---049打头的,需要判断49次,IF最多嵌套7层,不能实现