为什么一个完整Excel的宏命令,总是说缺少End Sub,在线急等,请高手赐教.

Question

Sub a()
Sub TEST()
Dim m As Integer
Dim n As Integer
Dim o As Integer
Application.DisplayAlerts = False
For m = 2 To 6
n = Sheets(m).[a65536].End(xlUp).Row
o = Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Range("a1:Z" & n).Copy
Sheets(1).Range("a" & o + 1).PasteSpecial
Next
Application.DisplayAlerts = True
End Sub
这个是我的宏命令,为什么在执行的时候总是说缺少End Sub项.

Answer 1

一段代码里不能同时出现两个sub，请看这里，

有两个sub，只要删除一个就可以了。

很高兴为你解答，希望能帮到你！

Answer 2

sub a()还有sub test()
二个sub
最后只有一个end sub
当然缺少一个。
删除sub a()这一行，试试

Answer 3

sub a()后面没有end sub
所以说缺少

Answer 4

前面有两个Sub

追问

你好朋友,有两个Sub是什么意思.
您能帮我吧完整的编辑一下么.谢谢了.

追答

删掉第一行或第二行

追问

这次好了,感谢了朋友.