- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
我的EXCEL VBA 主要用來把 0-9 的連續數字 取出
現在的VBA CODE 比較累贅 0-9 就已經那麼多CODE了 ...
adrian_9832 發表於 2019-3-1 21:11 
看不懂你的例子...
為甚麼一開始 210280 與 210281 不算連續數字?
接著 21032 21033 21034 也不算連續數字?
你需要敘述的更清楚一點,
哪些情形下不能列入連續數字處理喔.
若假設只要是連續數字都列出來,
那麼可以用下式:- Sub nn()
- Dim lRow&, lVal&
-
- lRow = 1
- lVal = -99999
- Do While Cells(lRow, 3) <> ""
- With Cells(lRow, 3)
- If .Value = lVal + 1 Then
- .Interior.ColorIndex = 34
- .Offset(, 2) = "abc"
- If .Offset(-1, 2) <> "abc" Then
- .Offset(-1).Interior.ColorIndex = 34
- .Offset(-1, 2) = "abc"
- End If
- End If
- lVal = .Value
- End With
- lRow = lRow + 1
- Loop
- End Sub
|
|
發表於 2019-3-2 07:51
| 