|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 守护你de爱 于 2019-1-12 11:32 编辑
- 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
复制代码 以上代码如何可以做到全部sheet合并时,指定两个sheet(Summary、Total)不进行汇总,谢谢!!
|
|