quickfixer

¦^´_ 1# f00l01



   

¤U¸ü (83.21 KB)

2021-3-29 14:47

²Â¤èªk
NÄæ­n¯dªÅ¥Õ
Sub test()
    Columns("O:AA").ClearContents
    For r = 1 To 10 '¨ì²Ä10¦C
    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) '¸ê®Æ±q³Ì«á¤@Äæ+2¶}©l©ñ
            Next
            cc = c
        End If
    Next
    Next
End Sub