忽略范围内的空白单元格

初学者在VBA这里。 我试图把一系列的单元格放入不同的工作簿中，当它执行时，它会将空格粘贴为“12:00:00 AM”。 我试图把它复制到目标工作簿中，就像在源文件中一样。

当前的代码

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）来使双引号出现在实际的Excel公式中。