當Range.Value為空時，在Excel中使用.Formula的VBA返回0

Question

如果.Formula = "='C:\\data\\[adxl364.xls]ADXL364_QC'!A1"為空，則它在Worksheet返回值為0 。

我應該在代碼中添加些什么，以使其在Cell為空時不返回0值？

Sub GetRange()
    With Range("A:Z")
        .Formula = "='C:\data\[adxl364.xls]ADXL364_QC'!A1"
        .Formula = .Value
    End With
End Sub

Answer 1

您需要修改公式以在“ ..！A1”不等於0時返回空字符串。

Sub GetRange()
    With Range("A:Z")
        .Formula = "=If('C:\data\[adxl364.xls]ADXL364_QC'!A1 > 0,'C:\data\[adxl364.xls]ADXL364_QC'!A1,Text(,))"
        .Formula = .Value
    End With
End Sub

---

我使用Text（，）返回一個空字符串，而不是將雙引號加倍（例如““”“）：

"=If('C:\data\[adxl364.xls]ADXL364_QC'!A1 > 0,'C:\data\[adxl364.xls]ADXL364_QC'!A1,"""")"

Answer 2

您可以使用以下函數： =IF(ISBLANK('C:\\data\\[adxl364.xls]ADXL364_QC'!A1);"";'C:\\data\\[adxl364.xls]ADXL364_QC'!A1)