我是靠谱客的博主 精明大白，这篇文章主要介绍java poi 如何合并多个sheet 为一个sheet_将EXCEL中的多个SHEET中内容合并到一个SHEET中...，现在分享给大家，希望可以做个参考。
在左侧对应的Sheet“All”上双击，弹出窗口空白处粘贴下面的代码。
Sub hb()
Dim bt, i, r, c, n, first As Long
bt = 1 '表头行数，多行改为对应数值
Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then
If first = 0 Then
c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column
Sheets(i).Range("A1").Resize(bt, c).Copy Range("A1")
n = bt + 1: first = 1
End If
r = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row
Sheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy Range("A" & n)
n = n + r - bt
End If
Next
End Sub
最后
以上就是精明大白最近收集整理的关于java poi 如何合并多个sheet 为一个sheet_将EXCEL中的多个SHEET中内容合并到一个SHEET中...的全部内容，更多相关java内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复