- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
Sub TEST()
Dim Arr, V&, U1&, U2&, i&, j%, T$
Arr = Range([A1], [m65536].End(xlUp))
For i = 1 To UBound(Arr)
V = -9 ^ 9
For j = 1 To UBound(Arr, 2)
U1 = Arr(i, j): U2 = U1
If j < UBound(Arr, 2) Then U2 = Arr(i, j + 1)
If U1 - V = 1 Or U2 - U1 = 1 Then T = T & "," & U1: V = U1
Next j
Arr(i, 1) = Mid(T, 2): T = ""
Next i
[O1].Resize(UBound(Arr)) = Arr
End Sub |
|
發表於 2021-3-31 18:22
| 
