作者home0303 (Blue night)
看板Office
标题[算表] ExcelVBA Resume Next
时间Thu Jan 10 09:29:17 2019
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1547083760.A.685.html
1F：→ newacc: 用GoTo，但後续可能会不易管理维护，可以考虑把要做的事放 01/10 09:52
2F：→ newacc: 在If的Else里面，或是If判断加个Not，要做的事放If里面 01/10 09:53
3F：→ soyoso: 如以原文条件来看，非空者+1，那cell.value<>""则做+1的动 01/10 10:11
4F：→ soyoso: 作，可将resume next改为接下来的cell.value=cell.value+1 01/10 10:12
5F：→ soyoso: 或是集合以range.specialcells常数，数字的方式，那回圈内 01/10 10:16
6F：→ soyoso: 应可不用判断 01/10 10:16
7F：→ home0303: 了解了 谢谢 01/10 10:42