excel多个sheet数据合并到一个sheet中，vba代码问题

在这2个sheet中，我最下面的小计和第一行的不需要，怎么用vba实现DimmAsIntegerDimnAsIntegerDimoAsIntegerForm=2To3n=... 在这2个sheet中，我最下面的小计和第一行的不需要，怎么用vba实现
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 3
n = Sheets(m).[a65536].End(xlUp).Row
o = Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Select
Range("a2", "z" & n).Select
Range("a" & n).Activate
Selection.Copy
Sheets(1).Select
Range("a" & o + 1).Select
ActiveSheet.Paste
Next
我这里的代码只能去除第一行的，最后一行的小计还是会留下来，怎么在上面的代码如何修改达到小计这行也不会留下来展开





 我来答

1个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

余余1982
2014-08-27 · 知道合伙人软件行家

余余1982
知道合伙人软件行家

采纳数：1627 获赞数：4047

从事现场管理及相关计划数据等统计。熟悉office办公软件(公式、VBA等)的使用。

向TA提问私信TA

关注

展开全部

修改这个 n = Sheets(m).[a65536].End(xlUp).Row
为n = Sheets(m).[a65536].End(xlUp).Row-1

更多追问追答
追问

那如果我想把第一个sheet的第一行留下，后面sheet的第一行都删除该怎么写
追答

 Sub A()
Dim m, N, O As Integer
[A1:Z65536].ClearContents
For m = 2 To 3
   N = Sheets(m).[a65536].End(xlUp).Row - 1
   O = Sheets(1).[a65536].End(xlUp).Row
   Sheets(m).Select
   If m = 2 Then
   Range("a1", "z" & N).Select
   Selection.Copy
   Sheets(1).Select
   Range("a1").Select
   ActiveSheet.Paste
   Else
   Range("a2", "z" & N).Select
   Selection.Copy
   Sheets(1).Select
   Range("a" & O + 1).Select
   ActiveSheet.Paste
   End If
Next
End Sub
追问

最后一个问题 单独把最后一行 合并怎么实现
追答

没明白你的意思，请说详细点。
追问

就是说 我如果想只要最后一行 小计那行的数据 合并到新sheet，怎么改。

就是说 我如果想只要最后一行 小计那行的数据 合并到新sheet，怎么改。
追答

  Sub A()
Dim m, N, O, O1 As Integer
[A1:Z65536].ClearContents
Sheets.Add AFTER:=Sheets(Worksheets.Count)
ActiveSheet.Name = "TJ"
For m = 2 To 3
   N = Sheets(m).[a65536].End(xlUp).Row - 1
   O = Sheets(1).[a65536].End(xlUp).Row
   O1 = Sheets("TJ").[a65536].End(3).Row + 1
   Sheets(m).Select
   If m = 2 Then
   Range("a1", "z" & N).Select
   Selection.Copy
   Sheets(1).Select
   Range("a1").Select
   ActiveSheet.Paste
    Sheets(m).Select
   Range("a" & N + 1, "Z" & N + 1).Select
   Selection.Copy
   Sheets("TJ").Select
   Range("a1").Select
   Selection.PasteSpecial Paste:=xlPasteValues
   Else
   Range("a2", "z" & N).Select
   Selection.Copy
   Sheets(1).Select
   Range("a" & O + 1).Select
   ActiveSheet.Paste
   Sheets(m).Select
   Range("a" & N + 1, "Z" & N + 1).Select
   Selection.Copy
   Sheets("TJ").Select
   Range("a" & O1).Select
   Selection.PasteSpecial Paste:=xlPasteValues
   End If
Next
End Sub