1

我需要用 Null 填充一系列单元格。我目前正在使用：

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

但我找不到要使用的正确字符串

4

3 回答 3

2

做这个：

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

这会将选择中的每个单元格设置为空白字符串；正如你在评论中所说的那样。

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

于 2013-06-19T15:41:40.543 回答
2

你也可以使用

With Selection
   .Value = "'"
   .ClearFormats
End With
于 2013-06-19T16:11:06.947 回答
0

尝试这个：

Sub WhatIWouldLike()
    Selection.ClearContents 
End Sub
于 2013-06-19T15:44:41.473 回答