Question

VBA初学者。我正在尝试将一系列单元格放入不同的工作簿中，当它出现时，它将空白作为“上午12:00:00”。我正试图让它完全复制，在源目录中的目标工作簿中有空白。

当前代码

Sub GetDinServRange()

With Range("A37:E111")
    If Not IsEmpty("A37:E111") Then
        With Range("A37:E111")
            .Formula = "='C:\FILEPATH\FILE'!A37:E111"
            .Value = .Value
        End With
    End If
End With

End Sub

Answer 1

更改

.Formula = "='C:\FILEPATH\FILE'!A37:E111"

到

.Formula = "=IF(ISBLANK('C:\FILEPATH\FILE'!A37:E111),"""",'C:\FILEPATH\FILE'!A37:E111)"

或

.Formula = "=IF(ISBLANK('C:\FILEPATH\FILE'!A37:E111)," & CHR(34) & CHR(34) & ",'C:\FILEPATH\FILE'!A37:E111)"

注意：VBA中需要Double Double Quotes（“”“”）或CHR（34）才能使Double引号出现在实际的Excel公式中。

忽略范围内的空白单元格

1 个答案: