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

§ì¨ú³Ì«á30µ§Äæ¦ìªº¸ê®Æ

data¦³90Äæ¦ì12¦C
´N³o¼Ë¡H
¯à§_³zÅS¤@¤U¦b¤°»ò¦ì¸m¡H
§A¤£»¡«Ü¤£¦n²qªº

TOP

Sub copy30()
With Sheets("1")
n = .[iv1].End(1).Column - 29
.Cells(1, n).Resize(12, 30).Copy Sheets("sheet1").[a8]
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD