填充范围为空

我需要用空值填充一个范围的单元格。我目前正在使用：填充范围为空

Sub FillARangeWithNulls() 
Dim DQ As String 
DQ = Chr(34) 
With Selection 
    .Clear 
    .Formula = "=" & DQ & DQ 
    .Copy 
    .PasteSpecial Paste:=xlPasteValues 
End With 
End Sub

此代码的工作，但似乎对于这个简单的任务有点复杂。我希望这样的事情：

Sub WhatIWouldLike() 
Selection.Value = ??????????????? 
End Sub

，但我无法找到正确的字符串使用

来源

2013-06-19 Gary' s Student

当你说空，你是什么意思？一串零长度？＃N/A？ – Bathsheba

@Bathsheba是的，我的意思是单个NULL字符 –

好的。我假设你的意思是一个零长度的字符串;回答如下。 – Bathsheba

这样做：

Sub WhatIWouldLike() 
    Selection.Value = "" 
End Sub

将在选择每一个细胞都设置为空串;正如你所说你想在你的评论。

但请注意，这是而不是与未触及的单元相同。为此，请使用ClearContents作为@mehow或@Cody Piersall状态。

来源

2013-06-19 15:41:40 Bathsheba

的更快和更明确的版本。您的代码可以正常工作，但前提是首先将单元格格式化为Text。我可以在宏中做到这一点。谢谢你的帮助！ –

如果你需要它是文本，只需在'Selection.Value =“之前加上'Selection.NumberFormat =”@“''' – chancea

试试这个：

Sub WhatIWouldLike() 
    Selection.ClearContents 
End Sub

来源

2013-06-19 15:44:41

你也可以使用

With Selection 
    .Value = "'" 
    .ClearFormats 
End With

来源

2013-06-19 16:11:06 JosieP

NEAT !!!! ClearFormats删除撇号！ –

填充范围为空

回答

相关问题