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

±N¦Û¾A¦C°ª¦A¥[°ª

±N¦Û¾A¦C°ª¦A¥[°ª

¤u§@ªíB²ÄE20¦C¥H¤UÀx¦s®æ³£¤w¤Ä¿ï¦Û°Ê´«¦æ
§Ú§â¸ê®Æ¥Ñ¤u§@ªíAÂà¨ì¤u§@ªíB«á¡AE20¥H¤U¨C¦Cªº°ª«×³£¤£¤@¼Ë¡A³£¸g¹L¦Û°Ê¦C°ª½Õ¾ã¡AÁöµM³£¯à§¹¾ã¬Ý¨ì¸ê®Æ¡A¦ý¦C»P¦C¤§¶¡·Pı«Üºò­¢¡A¦³¨S¦³¿ìªk¦b¦Û°Ê¦C°ª«á¡A¨C¦C¦A¦Û°Ê¥[°ª2~5ÂI?

Dim E As Range
i = Range("E20").End(xlDown).Row
For Each E In Sheets("B").Range("E20:E" & i)
    RH = E.RowHeight
    E.RowHeight = RH + 2
Next

¤W­±ªº¼gªk¨S¿ìªk¥¿±`°õ¦æ
Jess

For w = 1 To i
  Sheets("B").Rows(w).RowHeight = Sheets("B").Rows(w).RowHeight + 2
Next

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD