[算表] ExcelVBA Resume Next home0303 PTT批踢踢實業坊

[算表] ExcelVBA Resume Next

作者: home0303 (Blue night) 2019-01-10 09:29:17

軟體: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 會報錯：回復且無錯誤
請問該怎麼寫才對
謝謝

作者: home0303 (Blue night) 2019-01-10 10:42:00

了解了謝謝

作者: soyoso (我是耀宗) 2019-01-10 10:11:00

如以原文條件來看，非空者+1，那cell.value<>""則做+1的動作，可將resume next改為接下來的cell.value=cell.value+1或是集合以range.specialcells常數，數字的方式，那迴圈內應可不用判斷

作者: newacc (XD) 2019-01-10 09:52:00

用GoTo，但後續可能會不易管理維護，可以考慮把要做的事放在If的Else裡面，或是If判斷加個Not，要做的事放If裡面

繼續閱讀

[算表] Countif 多條件harold1018 [文件] WORD的表格內，直接使用貼上一整段文字lovelydella [算表] hyperlink函數之使用ilikefalali [算表] OR如何加入index matchraymond5566 [算表] 請問搜尋後如何移動框框chari7586 [問題] Excel相同內容不要連續排序mittzs [算表] excel 如何重新排版jie123 Re: [算表] excel 用非零的值尋找最早的日期ttnnee [文件] excel 字串擷取chunchanhung [問題] PPT 插入excel 作動畫或提醒kate5466