作者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/m.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