ªð¦^¦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®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD