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

[µo°Ý] ½Ð°Ý«ç¥ÎVBA ¿ï¨ú ¦³ªÅ®æªº½d³ò®æ

¥»©«³Ì«á¥Ñ »a³· ©ó 2019-12-14 10:04 ½s¿è

¦^´_ 1# adrian_9832


    §Ú°µªº«Ü²²¤¡A¥i¥H¸Õ¥Î¬Ý¬Ý...
   
    ¤£¹L«e´£¬OAÄæ­n¦³¸ê®Æªº±¡ªp¤U¡C
  1. Sub test()
  2. x = Cells(Rows.Count, 1).End(xlUp).Row

  3. For i = 1 To x
  4.     If Cells(i, 1) <> "" Then Cells(i, 1).CurrentRegion.Borders.LineStyle = xlContinuous
  5. Next i
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD