如何查找特定单元格并替换为文本

Question

在活动范围选择中，如何仅查找包含“0”和“#N / A”的单元格 - 并将其替换为文本“NA”，并将字体颜色更改为“红色”。

这是我用来“将公式转换为绝对值”和“查找空单元格以放置文本”NA的宏。

sub XConvertToValues()
   Dim MyRange As Range
   Dim MyCell As Range
   Set MyRange = Selection
   For Each MyCell In MyRange
       If MyCell.HasFormula Then
           MyCell.Formula = MyCell.Value
       End If
       If IsEmpty(MyCell.Value) = True Then
           MyCell.Value = "NA"
       End If
   Next MyCell
   End Sub

Answer 1

OP对数据格式的澄清后

已编辑

使用 #aboutus { float: left; margin-top: 250px; width: 100%; text-align: center; color:white; background: #333; height:50px; margin-bottom: 100px; } #aboutus p { margin: 10px; font-weight: 700; font-size: 1.2em; color:white; } #aboutus .aboutusTable { margin-top:500px; margin-bottom: 200px; table-layout: fixed; word-wrap: break-word; float:left; } 对象

的Replace()和AutoFilter()方法

Range

Answer 2

修改

现在，由于您提供了更多信息，因此可以这样做：

试试这个

Sub ConvertToValues()

Dim R As Long
k = Sheet1.Range("A1048576").End(xlUp).Row   '-> total rows in column A

For R = 1 To k
 If IsEmpty(Sheet1.Cells(R, 2)) = True Or Sheet1.Cells(R, 2) = "#NA" Or Sheet1.Cells(R, 2) = "0" Then
 Sheet1.Cells(R, 2).Value = "NA"
 Sheet1.Cells(R, 2).Font.Color = RGB(255, 0, 0)

End If
Next R
End Sub

Answer 3

我也是初学者，我可以做什么，也许它会对你有帮助，你可以把你想要改变的单元格数量改成或用FOR EACH重写代码

w:r[normalize-space(.) != '']