VBA循环遍历单元格

Question

我有一些代码工作，如果它们是数字而不是空，则替换单元格的值。如果代码也不在（＆＃34; 2012＆＃34;，＆＃34; 2013＆＃34;，2012,2013），我该如何修改代码才能替换它们？

Set rng = ActiveSheet.UsedRange
For Each cell In rng
  If IsNumeric(cell) And Not IsEmpty(cell) Then
    cell.Value = "max"
  End If
Next cell

Answer 1

由于您实际上只是在同一个单元格上进行了一些评估，因此您可以将它们“和它们”放在一起以保持简单。

If IsNumeric(cell) And Not IsEmpty(cell) AND cell <> 2012 AND cell <> 2013 Then