选择一个可变范围并将空白字段替换为值“ NA”

Question

我想在我的Excel工作表中有一个按钮：
1）要求我选择要使用的范围
2）将在此范围内找到的空白单元格更改为固定值（“ NA”）

我可以找到如何获得一个框，要求我选择一个范围，但找不到与此框组合更改值的解决方案。

Answer 1

您只能在两行中使用SpecialCells()来完成此操作：

Sub t()
Dim rng As Range
Set rng = Application.InputBox("Select a range", Type:=8).SpecialCells(xlCellTypeBlanks)
rng.Value = "NA"
End Sub

Answer 2

只需将您现有的其他获取范围值的范围从子对象传递到子对象，如下所示：

Private Sub BlankToNA(Target as Range)
     Target.SpecialCells(xlCellTypeBlanks).Value = "NA"
End Sub