ªð¦^¦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 : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD