java poi 如何合并多个sheet 为一个sheet_将EXCEL中的多个SHEET中内容合并到一个SHEET中...

87 阅读 0 评论 58 点赞

我是靠谱客的博主精明大白，最近开发中收集的这篇文章主要介绍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

End Sub

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。