å®ä¹åé
a = Worksheets("Sheet1").Range("a65535").End(xlUp).Row
b = Worksheets("Sheet1").Range("a1").End(xlToRight).Column
é£ä¹ç¨ä»¥ä¸è¯å¥ï¼å³å¯éä¸A2å°è¡ä¸ºaï¼å为bçåºå
Range("a2", Cells(a, b)).Select
Selection.Copy
æ¤ä¾ä¸ç¨å°äºå
³äºRange çç¸å
³ç¥è¯ï¼
EXCEL Range对象å¯è½æ¯VBA代ç ä¸æ常ç¨ç对象ï¼Range对象å¯ä»¥æ¯æä¸åå
æ ¼ãæä¸åå
æ ¼åºåãæä¸è¡ãæä¸åãæè
æ¯å¤ä¸ªè¿ç»æéè¿ç»çåºåç»æçåºåã
ä¸ä¾ä¸å°±ç¨å°äºrangeä¸çå¼å§åç»æç两个åå
æ ¼ï¼æ¥è¡¨ç¤ºä¸ä¸ªè¿ç»çåºåï¼å°±åéä¸ç¬¬ä¸ä¸ªåå
æ ¼ï¼ç¶åæä½shiftï¼åéæ©æåä¸ä¸ªåå
æ ¼æææ¯ä¸æ ·çã
å
·ä½è¡¨è¾¾å¼ä¸ºï¼Range(èµ·å§åå
æ ¼ï¼ç»æåå
æ ¼ï¼
温馨提示:答案为网友推荐,仅供参考