å¯ä»¥å©ç¨VBAå°å¤ä¸ªexcelå·¥ä½è¡¨ä¸çæ°æ®æ±æ»å°ä¸å¼ è¡¨æ ¼ä¸ã
软件çæ¬ï¼Office2007
æ¹æ³å¦ä¸ï¼
1ãå½åå·¥ä½ç°¿ä¸æå¤ä¸ªå·¥ä½è¡¨ï¼ç»æé½ä¸æ ·å¦ä¸æ示ï¼å½éé¢çæ°æ®ä¸ä¸æ ·ï¼å°å®ä»¬å
¨é¨å并å°å½åå·¥ä½è¡¨ä¸ï¼
2.Alt+F11ï¼æå¼å®çé¢ï¼è¾å
¥å¦ä¸ä»£ç ï¼
Sub m()
For Each sh In Sheets 'éåæ¯ä¸ªå·¥ä½è¡¨ï¼æåæ°æ®
If sh.Name <> "Sheet1" Then 'æé¤å½åå·¥ä½è¡¨
sh.Range("A2:C" & sh.Range("A65536").End(3).Row).Copy Range("A" & Range("A65536").End(3).Row + 1) 'å°å·¥ä½è¡¨ä¸çæææ°æ®å¤å¶å°å½åå·¥ä½è¡¨æåä¸è¡çä¸ä¸è¡ä¸
End If
Next
End Sub
3.F5æ§è¡ä»£ç ï¼è¿åExcelå¾å°ç»æå¦ä¸ï¼å·¥ä½è¡¨å并å®æï¼
VBAçå®ä¹ï¼
Visual Basic for Applications(VBA)æ¯Visual Basicçä¸ç§å®è¯è¨ï¼æ¯å¾®è½¯å¼ååºæ¥å¨å
¶æ¡é¢
åºç¨ç¨åºä¸æ§è¡éç¨çèªå¨å(OLE)ä»»å¡ç
ç¼ç¨è¯è¨ã
主è¦è½ç¨æ¥æ©å±Windowsçåºç¨ç¨åºåè½ï¼ç¹å«æ¯Microsoft Office软件ãä¹å¯è¯´æ¯ä¸ç§
åºç¨ç¨å¼è§è§åçBasic èæ¬ã
该è¯è¨äº1993å¹´ç±
微软å
¬å¸å¼åççåºç¨ç¨åºå
±äº«ä¸ç§éç¨çèªå¨åè¯è¨--------Visual Basic For Application(VBA)ï¼å®é
ä¸VBAæ¯å¯çäºVBåºç¨ç¨åºççæ¬ã微软å¨1994å¹´åè¡çExcel5.0çæ¬ä¸ï¼å³å
·å¤äºVBAçå®åè½ã