Excel如何用文本填充所有选定的空白单元格

Posted 2023-02-24

【中文标题】Excel如何用文本填充所有选定的空白单元格

【英文标题】：Excel how to fill all selected blank cells with text

【发布时间】：2011-12-22 08:33:56

【问题描述】：

是否可以选择excel表格中的所有银行单元格并在所有单元格中输入相同的值？

我只想用“null”填充它们

我有 Excel 学生 2010

【问题讨论】：

Cntrl+H（查找和替换），将“查找内容”留空并将“替换为”更改为 NULL。这应该用 NULL 替换 USED 范围内的所有空白单元格

@astander ，我建议您将其发布为答案

或者，您可以使用“查找和选择”、“转到特殊”、“空白”。然后选中所有空白单元格，写入 null 并按 [Ctrl]+[Enter] 输入。这（ctrl+Enter）将在所有选定的单元格中输入相同的数据（null）。

@brettdj，很快就会这样做 X-)

【参考方案1】：

要将相同的文本放在一定数量的单元格中，请执行以下操作：

突出显示要在其中放入文本的单元格 在您当前所在的单元格中输入要重复的数据 按住 Crtl 并按“返回”

您会发现所有突出显示的单元格现在都包含相同的数据。 祝你有美好的一天。

【讨论】：

对于 OP 正在寻找的东西并不理想，但在其他方面非常有用。

我认为这应该被选为当前答案。它本质上允许我选择使用范围内的子范围并对其应用一个公共值。标记为正确的答案不允许这样做 - 在没有上述功能的情况下，我将其称为 hack 或解决方法。

【参考方案2】：

好的，你可以试试

Cntrl+H（查找和替换），将查找内容留空并将替换为更改为NULL。

这应该用 NULL 替换 USED 范围内的所有空白单元格

【参考方案3】：

这是一个棘手的方法 - 选择要替换的单元格，然后在 Excel 2010 中选择 F5 以显示“转到”框。点击“特殊”按钮。选择“空白” - 这应该选择所有空白的单元格。在公式框中输入 NULL 或您想要的任何内容，然后按 ctrl + enter 以应用于所有选定的单元格。简单！

【讨论】：

在我看来，这是这个问题的最佳答案。接受的答案将执行 OP 在工作表或工作簿中提出的要求，但不具备仅处理单个列的粒度（这是我的用例）。

这似乎比以前的答案更精细。

【参考方案4】：

如果所有单元格都在一个列下，您可以过滤该列，然后选择“（空白）”，然后将任何值插入单元格。但要小心，按“alt + 4”以确保您只将值插入可见单元格。

【参考方案5】：

我不相信搜索和替换会为你做这件事（在 Excel 2010 Home 中对我不起作用）。您确定要在工作表的每个单元格中输入“null”吗？那是数百万个单元格，在这种情况下，搜索和替换无法在内存方面处理它（如果我错了，请纠正我）。

如果我是对的并且您不想要数百万个“空”单元格，那么这里是一个宏。它要求您选择范围，然后在每个空白单元格中输入“null”。

Sub FillWithNull()

Dim cell As range
Dim myRange As range

Set myRange = Application.InputBox("Select the range", Type:=8)
Application.ScreenUpdating = False

For Each cell In myRange
    If Len(cell) = 0 Then
        cell.Value = "Null"
    End If
Next

Application.ScreenUpdating = True

End Sub

【讨论】：

Cntl+H 应该只在 UsedRange 上工作。 xl07 对我来说效果很好

【参考方案6】：

如果你想在 VBA 中这样做，那么这是一个更短的方法：

Sub FillBlanksWithNull()

'This macro will fill all "blank" cells with the text "Null"

'When no range is selected, it starts at A1 until the last used row/column

'When a range is selected prior, only the blank cell in the range will be used.

On Error GoTo ErrHandler:

Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "Null"

Exit Sub

ErrHandler:

MsgBox "No blank cells found", vbDefaultButton1, Error

Resume Next

End Sub

问候，

罗伯特·伊布林克

【讨论】：

一行更小：Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "Null"

这是非常有效的，但 'SpecialCells' 最好在 'On Error Resume Next' 之后使用（然后一个 'On Error Goto 0' 因为如果 SpecialCells 是 Nothing，代码将出错。SpecialCells(xlBlanks ) 不会选择评估为 "" 的公式。+1 顺便说一句

Brett，感谢您对 On Error 添加的改进想法。我太专注于减少代码了。