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

½Ð°Ý¦p¦ó§ï¼g ASC("A") ¥u¯àŪA-Z¦@26­Ó¦r¥À..

½Ð°Ý¦p¦ó§ï¼g ASC("A") ¥u¯àŪA-Z¦@26­Ó¦r¥À..

For j = 0 To 100
        j2 = Asc("A") + j
        If Range(Chr(j2) & "8").Value = "" Then Exit For
    Next
    j2 = j2 - 1


½Ð°Ý¦p¦ó§ï¼g ASC("A") ¥u¯àŪA-Z¦@26­Ó¦r¥À?§ï¥Î§Oªº¨ç¼Æ?

¦^´_ 1# srd0k9


    §ârange换¦¨cells(¦æ,¦C).value=""试试¬Ý?

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD