ãããå·²ç¥æå¤ä¸ªç¬ç«çexcelå·¥ä½ç°¿æ件ï¼ç°å¨éè¦å°è¿äºæ件å并å°ä¸ä¸ªæ°çå·¥ä½ç°¿ä¸ãä¿çåæ¥excelå·¥ä½ç°¿ä¸å个excelå·¥ä½è¡¨å称ãå¦æéå°ï¼å¯ä»¥éç¨æå¼ä¸ä¸ªä¸ªå¤å¶çæ¹æ³ãå¨è¿éï¼æå°å大家å享ï¼æä¹æ¹éå¤çå¤ä¸ªå·¥ä½ç°¿ï¼psï¼ä¸æ¯å·¥ä½è¡¨ï¼çå并ã
ããå·¥å
·/åæ
ããmicrosoft office excel 2007
ããæ¹æ³/æ¥éª¤
ããå°éè¦å并çexcelå·¥ä½ç°¿æ件æ¾ç½®å¨ä¸ä¸ªæ件夹ä¸ã
æ¯ä¸ªæ件夹ä¸çå·¥ä½ç°¿é½è¾å
¥äºç®åçå
容ã
ããå¨è¯¥æ件夹ä¸ï¼æ°å»ºç«ä¸ä¸ªæ°çexcelå·¥ä½ç°¿æ件ãéå½å为8.
ããæå¼æ°å»ºç«çexcelå·¥ä½ç°¿æ件8.æAlt+F11æè
å°é¼ æ 移å¨å°ä¸æ¹å·¥ä½è¡¨å称sheet1ä¸å³é®ï¼éæ©æ¥ç代ç ã
ããå¨å¼¹åºç代ç ç¼è¾çªå£ä¸ï¼è¾å
¥ä»£ç ã注æï¼éè¿å¿«æ·é®Alt+F11æå¼ççªå£å¦ä¸æ²¡æç´æ¥å¤å¶ä»£ç çé¢æ¿ï¼éè¦ç¹å»å·¦ä¸æ¹çå·¥ç¨-VBA project模åï¼åå»sheet1ï¼å³å¯æå¼ä»£ç çªå£ãèæ¥éª¤3ä¸ç第äºç§æ¹æ³å¯ä»¥ç´æ¥æå¼ä»£ç è¾å
¥çªå£ã
ããå¨ä»£ç çªå£ä¸ï¼é»è´´ä¸å代ç ï¼
ããSub CombineFiles()
ããDimpath As String
DimFileName As String
DimLastCell As Range
DimWkb As Workbook
DimWS As Worksheet
DimThisWB As String
Dim MyDir AsString
MyDir =ThisWorkbook.path & "\"
'ChDriveLeft(MyDir, 1) 'find all the excel files
'ChDir MyDir
'Match =Dir$("")
ThisWB =ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path =MyDir
FileName =Dir(path & "\*.xls", vbNormal)
Do UntilFileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Set Wkb =Nothing
Set LastCell= Nothing
End Sub
ããç¹å»èåæ è¿è¡-è¿è¡åè¿ç¨-ç¨æ·çªä½ãå
³é代ç è¾å
¥çªå£ãæå¼excelå·¥ä½ç°¿8.å¯ä»¥çå°ä¸æ¹å·²ç»å¤äºå¾å¤æ°çå·¥ä½è¡¨ââæ¤æ¶ï¼æ们已ç»å°ä¹åçå·¥ä½ç°¿ä¸çå·¥ä½è¡¨é½å¤å¶å°äºè¿ä¸æ°å»ºçå·¥ä½ç°¿ä¸ã
温馨提示:答案为网友推荐,仅供参考