[已解决]改公式表述

fangniuji

如果Vba中M2以下公式VLOOKUP(B2,$S$2:$T$19,2,FALSE)代码是这样描述If Not Columns("s").Find(Cells(i, 2).Value, lookat:=xlWhole, LookIn:=xlValues) Is Nothing Then

          MyArr(i - 1, 10) = Columns("s").Find(Cells(i, 2).Value, lookat:=xlWhole, LookIn:=xlValues).Offset(0, 1).Value，哪M2公式如改成=IF(AND(W$2>0,X$2>0),Z2,VLOOKUP(B2,$S$2:$T$19,2,FALSE))又如何表述，谢谢。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-5 08:45

方法一：

1.     If [w2] > 0 And [x2] > 0 Then
   
2.         myarr(i - 1, 10) = [z2]
   
3.     Else
   
4.         If Not Range("s2:t19").Find(what:=[b2], LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
   
5.             myarr(i - 1, 10) = Range("s2:t19").Find(what:=[b2], LookIn:=xlValues, lookat:=xlWhole).Offset(, 1).Value
   
6.         End If
   
7.     End If

复制代码

跳转到最佳答案楼层

hwc2ycy

换成VBA，你不要填充了？

fangniuji

hwc2ycy 发表于 2012-12-4 15:30
换成VBA，你不要填充了？

不填充，如何用VBa表达？？？

hwc2ycy

方法一：

1.     If [w2] > 0 And [x2] > 0 Then
   
2.         myarr(i - 1, 10) = [z2]
   
3.     Else
   
4.         If Not Range("s2:t19").Find(what:=[b2], LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
   
5.             myarr(i - 1, 10) = Range("s2:t19").Find(what:=[b2], LookIn:=xlValues, lookat:=xlWhole).Offset(, 1).Value
   
6.         End If
   
7.     End If

复制代码

hwc2ycy

方法二：

1. myarr(i - 1, 10) = Evaluate("IF(AND(W$2>0,X$2>0),Z2,VLOOKUP(B2,$S$2:$T$19,2,FALSE))")

复制代码