有关于VLOOKUP与CELLS的问题

ngkz

我希望完成的功能是表”20“中第M列的数据来自于表”税1“
可是总显示”#VALUE!",不知哪里错了，请大拿们指点！万分感谢！

If Range("A4").Value = 1 Then
For r = 4 To 11
Cells(r, 13) = Application.Evaluate("=IF(ISNA(VLOOKUP(Cells(r,2),税1!$A$4:$AG$32,33,0)),0,(VLOOKUP(Cells(r,2),税1!$A$4:$AG$32,33,0)))")
Next r
ElseIf Range("A4").Value = 11 Then
[M4 ] = Application.Evaluate("=IF(ISNA(VLOOKUP(B4,税11!$A$4:$AG$32,33,0)),0,(VLOOKUP(B4,税11!$A$4:$AG$32,33,0)))")
End If

End Sub

sunya_0529

不太清楚你写个宏的目的是什么，只是为了设置公式的话，不需要用到宏。

要想用宏写入公式，应该遵循一定的规范，如下代码所示——

公式中应该都是字符串，像“cells(r,2)”这种VBA中对单元格对象的表达式，在公式中是不认的，需要用“&”连接“cells(r,2).address”才行。

1. Sub 宏2()
   
2. '
   
3. 
   
4. If Range("A4").Value = 1 Then
   
5. For r = 4 To 11
   
6. Cells(r, 13) = "=IF(ISNA(VLOOKUP(" & Cells(r, 2).Address & ",'1'!$B$4:$AG$32,12,0)),0,(VLOOKUP(" & Cells(r, 2).Address & ",'1'!$B$4:$AG$32,12,0)))"
   
7. Next r
   
8. 
   
9. ElseIf Range("A4").Value = 11 Then
   
10. [M4 ] = Application.Evaluate("=IF(ISNA(VLOOKUP(B4,'E:\公司资料\财务等\财务及工资\工资单\2016\1月份工资及个税\[2016年个人所得税明细.xls]11'!$A$4:$AG$32,33,0)),0,(VLOOKUP(B4,'E:\公司资料\财务等\财务及工资\工资单\2016\1月份工资及个税\[2016年个人所得税明细.xls]11'!$A$4:$AG$32,33,0)))")
    
11. 
    
12. End If
    
13.   
    
14. End Sub

复制代码

ngkz

sunya_0529 发表于 2016-1-21 16:28
不太清楚你写个宏的目的是什么，只是为了设置公式的话，不需要用到宏。

要想用宏写入公式，应该遵循一定 ...

太感谢了,这两天都愁死我了,我就是不知道“需要用“&”连接“cells(r,2).address”才行”。现在试好了！万分感谢！
对于EXCEL宏，我是个小白，我是希望每个月的工资做在第一个表中，然后将这个表插入每个月的表中，然后做汇总。我写这个公式是想自动调用后表（个税）的数据。不知是否可以有更好的方法？