尝试使用百分比作为值的数字
您好，我正在尝试运行一个循环，将包含0％的所有单元格的值更改为值“N / A”。 我写了下面的代码：
Dim Fail As Integer Fail = "0%" ThisWorkbook.Sheets("Summary").Activate LastRow = Cells(Rows.Count, "G").End(xlUp).Row For X = 22 To LastRow If Range("G" & X).Value = Fail Then Range("G" & X).Value = "N/A" Next X 但是它所做的只是将G列中的所有值replace为“N / A”。 我哪里做错了？
字符“％”不能在整数内存在。 调暗整数时只能使用整数。 资源
你的问题在于Fail = "0%" ，Excel会自动改变所有包含百分比的单元格的格式。 所以你需要做的是将Fail = "0%"改为Fail = "0" 。
请参阅下面的最终代码：
Dim Fail As Integer Fail = "0" ThisWorkbook.Sheets("Summary").Activate LastRow = Cells(Rows.Count, "G").End(xlUp).Row For X = 22 To LastRow If Range("G" & X).Value = Fail Then Range("G" & X).Value = "N/A" Next X
在你的范围使用简单的replace语句。
Worksheets("Summary").Range("G22:G1000").Replace What:="0%", Replacement:="NA"