å¯ä»¥å©ç¨VBAå¿«éå并å个excelå·¥ä½ç°¿ä¸çå¤ä¸ªå·¥ä½è¡¨ï¼sheetï¼
软件çæ¬ï¼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å¾å°ç»æå¦ä¸ï¼å·¥ä½è¡¨å并å®æï¼
1. 增加一个工作表sheet,重命名xx 。
2. 点到新增加的工作表中,按ALT+F11,出现如图的对话框。
3.双击名称xx的图标。出现如下对话框。
4. 在上图红色的区域复制上如下代码。
Sub GetStName()
Dim FinalRow As Long
Dim St As Worksheet
FinalRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 2
For Each St In ThisWorkbook.Worksheets
Cells(FinalRow, 1).Value = St.Name
FinalRow = FinalRow + 1
Next St
End Sub
5.把名称为xx的图表的属性改为sheet1(这需要把原先那个sheet1,改为其他的sheet,不和其他工作表重复即可
6.点击菜单中的执行的三角符号,就可以合并所有sheet的工作表内容到一个工作表中
本回答被提问者和网友采纳1. 增加一个工作表sheet,重命名xx 。
2. 点到新增加的工作表中,按ALT+F11,出现如图的对话框。
3.双击名称xx的图标。出现如下对话框。
4. 在上图红色的区域复制上如下代码。
Sub GetStName()
Dim FinalRow As Long
Dim St As Worksheet
FinalRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 2
For Each St In ThisWorkbook.Worksheets
Cells(FinalRow, 1).Value = St.Name
FinalRow = FinalRow + 1
Next St
End Sub
5.把名称为xx的图表的属性改为sheet1(这需要把原先那个sheet1,改为其他的sheet,不和其他工作表重复即可
6.点击菜单中的执行的三角符号,就可以合并所有sheet的工作表内容到一个工作表中
本回答被提问者和网友采纳