读书人

求EXcel函数,该怎么解决

发布时间: 2013-01-01 14:04:18 作者: rapoo

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

[解决办法]
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列输入


=IF(AND(VALUE(LEFT(AO,3))>0,VALUE(LEFT(AO,3))<50),"半成品库","")

即可
[解决办法]
引用:
001---049打头的,需要判断49次,IF最多嵌套7层,不能实现

没有你说的那么麻烦,直接设个小于50就得了

读书人网 >VBA

热点推荐