問題已解決
老師每個月單獨一個表,我想把它們合并到一個表怎么弄?項目相同,只是按月分了12個表
溫馨提示:如果以上題目與您遇到的情況不符,可直接提問,隨時問隨時答
速問速答您好,可以嘗試下以下方法:
把所有要合并的表格拷到一個文件夾里(只放要合并的文件)
1、在該相應(yīng)的目錄下新建一個EXCEL表。
2、打開該EXCEL表,并且在SHEET1表里,按ALT+F11,就是VBA編程
3、雙擊Sheet1表,輸入以下代碼:(如果合并的是EXCE07/10的文件,請把下的的XLS改為XLSX)
代碼:
Sub 合并當前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & & *.xls)
AWbName = ***.Name
Num = 0
Do While MyName <>
If MyName <> AWbName Then
Set Wb = ***.Open(MyPath & & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & ***.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range(A1).Select
Application.ScreenUpdating = True
MsgBox 共合并了 & Num & 個工作薄下的全部工作表。如下: & Chr(13) & WbN, vbInformation, 提示
End Sub
4、點擊文件保存。(主要原因是在該目錄下生成該文件)
5、點擊“運行”開始合并
好的你的所有表格就合并成一張了
2023 07/16 09:33
84785035
2023 07/16 09:53
這是亂碼了嗎?怎么這么多像寫程序一樣啊
微微老師
2023 07/16 09:53
您好,就是需要代碼的呢。很復雜的
閱讀 1728