[µo°Ý] §â¼Æ¦r¾ã²z ¨D±Ð

adrian_9832

·íA¦Cªº ¸ê®Æ ¦³»ô 1-9 ªº®É­Ô ´N ¦bB¦C ¼g¤W¤p¤@­Ó¦ìªº¼Æ¦r

½Ð°Ý­n«ç¼Ë¥ÎVBA ©Î ¤èµ{ ¥h§Î¦¨¹Ï¤ù¤¤ B2 ªºµ²ªG


¥tªþ¤WEXCELÀÉ

adrian_9832

¦^´_ 2# ­ã´£³¡ªL


    ¦n¹³¤£¤Ó¦¨¥\ §Ú¦bb¦C¿é¤J«á ¨S¤ÏÀ³ :dizzy:

adrian_9832

¦^´_ 3# hcm19522

¦¨¥\¤F ÁÂÁ¤j¤jÀ°§U; °²³]·Q¦P®É ÅÜÃC¦â À³¸Ó«ç§ï¶Ü

adrian_9832

·Q½Ð°Ývba ¬O¦p¦óªí¹Fªº

²{¦b§Úªº¶i«×¬O³o¼Ë
Sub TEST()

x = 1
a = 1
Count = 0

Do Until Cells(x, 1) = ""

Set currentcell = Cells(x, 1)


If Right(currentcell, 1) = "0" Then

Set nextCell = currentcell.Offset(1, 0)
   
        If Val(currentcell) + 1 = nextCell Then
            abc = Val(currentcell)
            Count = Count + 1
            Else
            Count = 0
        End If
        i

   
End If




x = x + 1
Loop















End Sub