ªð¦^¦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 : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD