早教吧 育儿知识 作业答案 考试题库 百科 知识分享

如何将Excelsheet中资料合并(不是加总,只是将资料累计起来)举例:将sheet1sheet2sheet3中的资料合并到sheet4中去\x05sheet1\x05\x05\x05\x05\x05A\x05B\x05C\x05D\x05E1\x054\x054\x054\x054\x0542\x054\x054\x054\x054\x0543

题目详情
如何将Excel sheet中资料合并(不是加总,只是将资料累计起来)
举例:将sheet1 sheet2 sheet3中的资料合并到sheet4中去
\x05sheet1\x05\x05\x05\x05
\x05A\x05B\x05C\x05D\x05E
1\x054\x054\x054\x054\x054
2\x054\x054\x054\x054\x054
3\x054\x054\x054\x054\x054
4\x054\x054\x054\x054\x054
5\x054\x054\x054\x054\x054
6\x054\x054\x054\x054\x054
7\x054\x054\x054\x054\x054
8\x054\x054\x054\x054\x054
9\x054\x054\x054\x054\x054
\x05sheet2\x05\x05\x05\x05
\x05A\x05B\x05C\x05D\x05E
1\x055\x055\x055\x055\x055
2\x055\x055\x055\x055\x055
3\x055\x055\x055\x055\x055
4\x055\x055\x055\x055\x055
5\x055\x055\x055\x055\x055
6\x055\x055\x055\x055\x055
7\x055\x055\x055\x055\x055
8\x055\x055\x055\x055\x055
9\x055\x055\x055\x055\x055
\x05sheet3\x05\x05\x05\x05
\x05A\x05B\x05C\x05D\x05E
1\x056\x056\x056\x056\x056
2\x056\x056\x056\x056\x056
3\x056\x056\x056\x056\x056
4\x056\x056\x056\x056\x056
5\x056\x056\x056\x056\x056
6\x056\x056\x056\x056\x056
7\x056\x056\x056\x056\x056
8\x056\x056\x056\x056\x056
9\x056\x056\x056\x056\x056
合并成如下格式
\x05sheet4\x05\x05\x05\x05
\x05A\x05B\x05C\x05D\x05E
1\x054\x054\x054\x054\x054
2\x054\x054\x054\x054\x054
3\x054\x054\x054\x054\x054
4\x054\x054\x054\x054\x054
5\x054\x054\x054\x054\x054
6\x054\x054\x054\x054\x054
7\x054\x054\x054\x054\x054
8\x054\x054\x054\x054\x054
9\x054\x054\x054\x054\x054
10\x055\x055\x055\x055\x055
11\x055\x055\x055\x055\x055
12\x055\x055\x055\x055\x055
13\x055\x055\x055\x055\x055
14\x055\x055\x055\x055\x055
15\x055\x055\x055\x055\x055
16\x055\x055\x055\x055\x055
17\x055\x055\x055\x055\x055
18\x055\x055\x055\x055\x055
19\x056\x056\x056\x056\x056
20\x056\x056\x056\x056\x056
21\x056\x056\x056\x056\x056
22\x056\x056\x056\x056\x056
23\x056\x056\x056\x056\x056
24\x056\x056\x056\x056\x056
25\x056\x056\x056\x056\x056
26\x056\x056\x056\x056\x056
27\x056\x056\x056\x056\x056
▼优质解答
答案和解析
Sub 合并工作表()For i = 1 To Sheets.Count-1Sheets(i).Range("A2:CC" & Sheets(i).UsedRange.Rows.Count).Copy Destination:=Sheets("sheet4").Range("A" & Sheets("sheet4").UsedRange.Rows.Count + 1)NextEnd Su...