VBA循環單元格

我有一些代碼工作，它取代了單元格的值，如果它們是數字而不是空的。如何修改代碼以僅替換值（「2012」，「2013」，2012,2013）中的值？VBA循環單元格

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

來源

2017-09-20 Max888

在第一個裏面添加一個嵌套的if。 '如果不是（單元格= 2012或單元格= 2013或...）然後是' –

因爲你真的只是在做同一細胞上的一些更多的評價，你可以「和他們」在一起，以保持它的簡單。

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

來源

2017-09-20 18:27:17

'2012 <>「2012」'但是兩者的返回值均爲IsNumeric。並且單元格當然可以等於一個數字，因爲單元格的默認子元素是'cell.Value' –

謝謝@ScottCraner。我最近在Word vba中有過我的頭腦。我更新了我的答案，它適用於我。 –

VBA循環單元格

回答

相關問題