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

[µo°Ý] Âù°j°é±N¸ê®Æ©ñ¤J®æ¤l «ü±Ð

[µo°Ý] Âù°j°é±N¸ê®Æ©ñ¤J®æ¤l «ü±Ð

¥Í²£¤é³øªí.rar (139.4 KB)
¦pªþ¥ó
¤p§Ì¦³¤@¨Æ·Q½Ð±Ð
¤w±N©Ò»Ý­nªº¸ê®ÆŪ¨ú¦b¼È¦s°Ï¤º
¦ý­n©ñ¦b¥t¤@¤À­¶ªº®æ¤l®É
«ç©ñ³£¬O­«ÂЪº¸ê®Æ

¤p§ÌªºÂù°j¯Ê¼gªk¦p¤U
For X2 = 4 To X1

    For X3 = X To 25
        For X4 = 1 To X1
            If B1 = A5(X4) Then
                Cells(X3, 6) = A(X4)
                Exit For
               
               
                Else
            
            End If
        
        Next
        
        X = X + 1
            
        
    Next
½Ð°Ý¦³¸Ñ¶Ü?©ÎªÌ¦³§ó¦nªº¼gªk?ÁÂÁÂ!!

¦^´_ 1# fantersy

¥i§_¥t¥~¤è¦¡´£¨Ñ¤@¤Uªþ¥ó©Î¬OCode¡A§ÚÁÙ¬O¤p¾Ç¥ÍµLªk¤U¸ü~

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD