VBA 代码请求帮助

【求助帖】请及时确认最佳答案，下次提问时可以得到更多关注，问题可以更快解决

请教如何使用VBA写出如下函数：
IF(AND(B4<>"烤漆门",G4<0),"",
IF(AND(B4="烤漆门",G4<=800),"1.8",
IF(AND(B4="烤漆门",G4<=1000),"2.2",
IF(AND(B4="烤漆门",G4<=1100),"2.4",
IF(AND(B4="烤漆门",G4<=1200),"2.6",
IF(AND(B4="烤漆门",G4<=1300),"2.8",
IF(AND(B4="烤漆门",G4<=1400),"3.0",))))))
IF(AND(B4<>"烤漆门",G4<=1000),"2.2",
IF(AND(B4<>"烤漆门",G4<=1750),"1.8",
IF(AND(B4<>"烤漆门",G4<=2150),"2.2",
IF(AND(B4<>"烤漆门",G4<=2350),"2.4",
IF(AND(B4<>"烤漆门",G4<=2550),"2.6",
IF(AND(B4<>"烤漆门",G4<=2950),"3.0")))))))

pengyx

sub qq378638653()
if range("B4")="烤漆门" then
select case range("g4")
case is <=800
range("a1")=1.8
case is <=1000
range("a1")=2.2
case is <=1100
range("a1")=2.4
case is <=1200
range("a1")=2.6
case is <=1300
range("a1")=2.8
case is <=1400
range("a1")=3.0
end select
else
select case range("g4")
case is <0
range("a1")=""
case is <=1000
range("a1")=2.2
case is <=1750
range("a1")=1.8
case is <=2150
range("a1")=2.2
case is <=2350
range("a1")=2.4
case is <=2550
range("a1")=2.6
case is <=2950
range("a1")=3.0
end select
end if
end sub
试试。不行就删了，将运算结果写到了单元格A1哈