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

[µo°Ý] ¨D¿ï¨ú¾ãÄæ¨Ã§R°£ªº¤è¦¡

[µo°Ý] ¨D¿ï¨ú¾ãÄæ¨Ã§R°£ªº¤è¦¡

hi dear all
¥H¤U§Ú¼g¤F­Ó¤p¥¨¶°lastcolumn
¥Øªº¬Osheet2ªºa1¿é¤J¼Æ­È«á½Æ»s¦Ü
sheet1³Ì«á¨S¦³¸ê®Æªº¤@Äæ(e1),°õ¦æOK
¦]¬°¸ê®Æ¨Ó·½·|³Ð³y¥XFÄæ,
©Ò¥H»Ý­n¦³²Ä¤G­Ó¤p¥¨¶°¬O­n§R°£sheet1¦³¸ê®Æªº­Ë¼Æ²Ä¤GÄæ"¾ãÄæ"(eÄæ)




¦]¬°¥Ø«eVBA¶È¯à§ä¨ì³Ì«á¤@Ä檺¨º¤@­Ócell¦ýµLªk¬O¾ãÄæ,
½Ð°Ý¦³¨ä¥L¿ìªk¥i¥H¿ï¨ú¾ãÄæ¨Ã§R°£¶Ü
ÁÂÁÂ~
ps.¦¹¬°²Ä¤@­Ó¤p¥¨¶°
Sub lastcolumn()
Sheets("Sheet2").Activate
Sheets("Sheet2").Select
Range("a1").Copy
With Sheets("Sheet1")
    .Paste .Range("a1").End(xlToRight).Offset(0, 1)
End With
End Sub

¹³³o¼Ë¶Ü?

'§R°£­Ë¼Æ²Ä¤GÄæ
Columns([IV1].End(xlToLeft).Column - 1).EntireColumn.Delete

TOP

¨S¿ù´N³o¼Ë´ú¸ÕOK
jackdream¤j¤j
¤S¨ü¨ì§AªºÀ°§U
·PÁ¦A·PÁÂ!!
³o®Ñ¥»¤W·|±Ð¶Ü,§Ú«ç»ò¤@ª½¬d¤£¨ì....

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-27 22:25 ½s¿è
³o®Ñ¥»¤W·|±Ð¶Ü,§Ú«ç»ò¤@ª½¬d¤£¨ì....
momowu µoªí©ó 2010-7-27 20:08


¦b VBA ªº½s¿èµe­±,«ö¤U F1 ·|¦³«Ü¦h¬ÛÃö»¡©ú¤å¥ó

TOP

¤F¸Ñ,·PÁ¤F,²¦³ºÀ´¤F­n¥Î¤ñ¸û¤è«K

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD