如何快速把多个excel表合并成一个excel表
展开全部
用VBA
1
2
3
4
5
6
7
8
9
Sub 合并工作表() [A2:I65536].ClearContents
For sht = 2 To Sheets.Count
With Sheets(sht)
h1 = [a65536].End(3).Row
h2 = .[a65536].End(3).Row
.Range("a2:i" & h2).Copy Range("a" & h1 + 1)
End With
Next sht
End Sub
这个代码的意思是将文件内的所有工作表从A2开始合并到I列。
一般我们都有一行表头,如果是2行表头,那么我们将所有A2改为A3,列的位置是在A2:I65536和a2:i改这两个I,运行后我们得到所有数据。
1
2
3
4
5
6
7
8
9
Sub 合并工作表() [A2:I65536].ClearContents
For sht = 2 To Sheets.Count
With Sheets(sht)
h1 = [a65536].End(3).Row
h2 = .[a65536].End(3).Row
.Range("a2:i" & h2).Copy Range("a" & h1 + 1)
End With
Next sht
End Sub
这个代码的意思是将文件内的所有工作表从A2开始合并到I列。
一般我们都有一行表头,如果是2行表头,那么我们将所有A2改为A3,列的位置是在A2:I65536和a2:i改这两个I,运行后我们得到所有数据。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Excel中怎么把多个表格快速合并到一个表格
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询