[算表] 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