返回列表 上一主題 發帖

如何找出連續的數字

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
2  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2025-6-27 
1# 跳轉到 »
發表於 2021-3-29 14:48 | 顯示全部帖子
本帖最後由 quickfixer 於 2021-3-29 14:50 編輯

回復 1# f00l01



   

笨方法
N欄要留空白
Sub test()
    Columns("O:AA").ClearContents
    For r = 1 To 10 '到第10列
    cc = 1
    ccc = 0
    For c = 2 To 14 '最後一欄+1
        If Cells(r, c) - Cells(r, c - 1) <> 1 Then
            ccc = ccc + 1
            For i = cc To c - 1
            Cells(r, ccc + 14) = Cells(r, ccc + 14) & "," & Cells(r, i) '資料從最後一欄+2開始放
            Next
            cc = c
        End If
    Next
    Next
End Sub

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
2  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2025-6-27 
2#
發表於 2021-3-29 15:46 | 顯示全部帖子
回復 1# f00l01



修正一下,只列出連續數字
    Sub test2()
    Columns("O:AA").ClearContents
    For r = 1 To 10
    cc = 1
    ccc = 0
    For c = 2 To 14
        If Cells(r, c) - Cells(r, c - 1) <> 1 Then
            s = ""
            For i = cc To c - 1
            s = s & "," & Cells(r, i)
            Next
            
            If UBound(Split(s, ",")) <> 1 Then
                ccc = ccc + 1
                Cells(r, ccc + 14) = s
            End If
            cc = c
        End If
    Next
    Next
End Sub

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題