[算表] ExcelVBA Resume Next

[home0303 (Blue night)]

軟體:EXCEL

版本:2010

Sub n()

For Each cell In Selection

    If cell.Value = "" Then Resume Next
    cell.Value = cell.Value + 1

Next
End Sub

我希望空格不處理跳到下一個For

非空者則 +1

此處的Resume Next 會報錯：回復且無錯誤

請問該怎麼寫才對

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 175.98.114.28
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1547083760.A.685.html
→ newacc: 用GoTo，但後續可能會不易管理維護，可以考慮把要做的事放
→ newacc: 在If的Else裡面，或是If判斷加個Not，要做的事放If裡面
→ soyoso: 如以原文條件來看，非空者+1，那cell.value<>""則做+1的動
→ soyoso: 作，可將resume next改為接下來的cell.value=cell.value+1
→ soyoso: 或是集合以range.specialcells常數，數字的方式，那迴圈內
→ soyoso: 應可不用判斷
→ home0303: 了解了  謝謝