读书人

求EXcel函数,该如何解决

发布时间: 2012-05-15 14:35:29 作者: rapoo

求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层,不能实现

读书人网 >VBA

热点推荐