以ä¸å
容æ æ³ç¨å
¬å¼èªå¨å®æï¼å»ºè®®ç¨VBA代ç ã
VBA(Visual Basic For Applications)æ¯å¾®è½¯å¼ååºæ¥å¨å
¶æ¡é¢åºç¨ç¨åºä¸æ§è¡éç¨çèªå¨å(OLE)ä»»å¡çç¼ç¨è¯è¨ãVBAæ¯Visual Basicçä¸ä¸ªåé,VBAä¸åäºVBï¼åå æ¯VBAè¦æ±æä¸ä¸ªå®¿ä¸»åºç¨ç¨åºæè½è¿è¡ï¼éè¦å¨EXCELç软件çè¿è¡ä¸æè½è¿è¡ï¼ï¼èä¸ä¸è½ç¨äºå建ç¬ç«åºç¨ç¨åºãèVBå¯ç¨äºå建ç¬ç«çåºç¨ç¨åºãVBAå¯ä½¿å¸¸ç¨çè¿ç¨æè
è¿ç¨èªå¨åï¼å¯ä»¥å建èªå®ä¹ç解å³æ¹æ¡ï¼æéç¨äºæ¥å®å¶å·²æçæ¡é¢åºç¨ç¨åºã
以ä¸ä»£ç å¯å®ä½ çæé®ï¼
Sub èªå¨å¡«å
()
Dim i As Integer
lastcolumn = Worksheets("Sheet2").UsedRange.SpecialCells(xlCellTypeLastCell).Column
lastrow = Worksheets("Sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Sheet2").Select
For i = 1 To lastrow
If Cells(i, 1) = "" Then
Worksheets("Sheet2").Cells(i, 1) = Worksheets("Sheet1").Cells(i, 1)
Else
Worksheets("Sheet2").Cells(i, lastcolumn + 1) = Worksheets("Sheet1").Cells(i, 1)
End If
Next
End Sub
å
·ä½ç¨æ³å¦ä¸ï¼
ALT+F11æå¼VBEç¼è¾çªå£ï¼åå»thisworkbookæå¼å¯¹åºççªå£ï¼å°ä»¥ä¸ä»£ç å¤å¶å°æå¼ççªå£ä¸ï¼ä¿åãè¿åå·¥ä½è¡¨ï¼å·¥å
·ï¼ï¼é项ï¼å®å
¨æ§ï¼ï¼å®å®å
¨æ§ï¼ï¼ä¸ï¼ï¼ç¡®å®ãä¿å并å
³éå·¥ä½ç°¿ã
æå¼å·¥ä½ç°¿ï¼ï¼å¯ç¨å®
å¨sheetå·¥ä½è¡¨ä¸ï¼ï¼æå
¥ä¸ä¸ªææ¬æ¡ï¼ï¼è¾å
¥å½å
¥ï¼ï¼å³å»ï¼ï¼æå®å®ï¼ï¼æ¾å°èªå¨å¡«å
ï¼ï¼åå»ï¼ï¼ç¡®å®
å¨Aå·¥åè¾å
¥æ°æ®ååå»å½å
¥å³å¯å¾å°æè¦çç»æã注æsheet2ä¸çåå
æ ¼ä¸è½è¿è¡æ ¼å¼è®¾ç½®.è¿æ¯è¯¥ä»£ç ç缺ç¹.ä½ä½è¿è¡è¡é«åå宽çè°æ´.
追é®æè°¢ä½ ç详ç»è§£çï¼ç¨ait+f11ï¼vba代ç
æ¯å¤å¶å°è¡¨1ï¼è¿æ¯è¡¨2ï¼
ç¨alt+F8è¿è¡æ¯å§ï¼
å¯ä»¥éº»ç¦å个é件åï¼