Vba 用VLOOKUP中的空白替换N/A或0

我想在执行VLOOKUP后用一个空格替换每个N/A或0

Dim myLastRow As Long

ActiveSheet.UsedRange

myLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

Range("S2").Select
ActiveCell.Formula = "=IF(ISNA(VLOOKUP(C[-16],Blad1!C[-16]:C[6],17,FALSE)),"",IF(VLOOKUP(C[-16],Blad1!C[-16]:C[6],17,FALSE)=0,"",VLOOKUP(C[-16],Blad1!C[-16]:C[6],17,FALSE)))"
Selection.AutoFill Destination:=Range("S2:S" & myLastRow), Type:=xlFillDefault

这对我来说不起作用，我得到了一个错误，但我不知道到底是什么错了

ActiveCell.Formula = "=VLOOKUP(C[-16],Blad1!C[-16]:C[6],17,FALSE)"

---

不起作用，但条件函数不起作用。

您得到该错误是因为您试图将

“

置于

”

之间。将所有

“

替换为

”

ActiveCell.Formula=“=IF（ISNA（VLOOKUP（C[-16]，Blad1！C[-16]：C[6]，17，FALSE）），”“”，IF（VLOOKUP（C[-16]，Blad1！C[-16]：C[6]，17，FALSE）=0，”，VLOOKUP（C[-16]，Blad1！C[-16]：C[6]，17，FALSE））“