ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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


¥tªþ¤WEXCELÀÉ
TEST.JPG

TEST1.rar (7.4 KB)

B1/°}¦C¤½¦¡:
=IF(COUNT(0/COUNTIF(A:A,A1+ROW($1:$9)))=9,INT(A1/10),"")

TOP

{=IF(AND(ROW($1:$10)-1-RIGHT(0&A1:A10)=0),LEFT(A1,LEN(A1)-1),"")
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

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


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

TOP

¦^´_ 3# hcm19522

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

TOP

·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

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD