Question

这段单代码用vba写入时提示错误求大神帮忙改一下

=if(H" & i & "=0,"0",H" & i & "-F" & i & ")"

Answer 1

"=if(H" & i & "=0,""0"",H" & i & "-F" & i & ")"

双引号里原来的内容里的引号，1个变俩。

这是vb的缺点，引号看的人眼花缭乱。python和js就好很多，允许单双引号同时用，就能最外侧用单引号，里面用双引号，这样单引号找单引号配对，双引号找双引号配对，很方便。

追问

"=if(H" & i & "=0,""0"",H" & i & "-F" & i & ")"这个公式用vba写入之后变成了=IF(H=0,"0",H-F)，而不是=IF(H2=0,"0",H2-F2)，=IF(H3=0,"0",H3-F)，=IF(H4=0,"0",H4-F4).....？怎样才能实现按顺序排下去呢

追答

你i是几它就是几，你i从2到10试试，第一行写for i=2 to 10，最后一行加next。你底子太差了，你问的问题我前面回复的没有问题，不会用建议问问你身边会的人。我没法手把手教小白。

追问

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
for i = 2 to 1000
range("A" & i).value ="=if(H" & i & "=0,""0"",H" & i & "-F" & i & ")"

next
Next
End Sub
加入这些代码为什么还是只能在一个sheet用呢，怎么在多个sheet用呢

追答

range("A" & i).value

改成
sht.range("A" & i).value