麻烦采纳，谢谢!
...运行宏时总是提示编译错误:缺少 End Sub 请帮忙看看:
那是因为你不小心打开的录入的宏的代码!把过程结束语End Sub删除了! 你按ALT+F11打开VBE编辑器,打开右边模块,打开你录制的宏的名字.里面有代码,在所有代码后加上End Sub就行了!
为什么我的VB提示缺少End Sub?
你开始的代码错误较多，改成下面的样子，运行时点击标签就行了。Private Sub Label1_Click()Label1 = a End Sub Function a()As String Dim b(2)As String b(0)= 1 b(1)= 2 b(2)= 3 'b(3)= 4 Randomize a = b(Rnd 2)End Function 问题补充下面的代码没有问题，可以运行。
为什么一个完整Excel的宏命令,总是说缺少End Sub,在线急等,请高手赐...
一段代码里不能同时出现两个sub，请看这里，有两个sub，只要删除一个就可以了。很高兴为你解答，希望能帮到你！
为什么我的VB提示缺少End Sub?
End Function 问题补充下面的代码没有问题，可以运行。
为什么会提示缺少end sub
楼主，你现在写的这段代码绝对没问题！请你耐心检查其他代码，绝对是其他代码出错了！ 当你找到出错的地方后再自己添加上"End Sub"就可以了！麻烦采纳，谢谢!
请教vba高手们,为什么我下面这个代码运行时说我编辑缺少“end sub...
你的代码有一个自定义函数,有一个按钮1的过程,所以应该有两人end sub,可是你只有一个.你删除第一或第二行,问题就能解决.
EXCEL编程中提示"缺少End Sub"是什么问题?在网上找的程序,写进去为什么...
对那图进行的回答，第一行已经是一个SUB的开始了，就没有必要再写一个Sub hebingbiao()解决就是把Sub hebingbiao()行删除 两个End Sub只留一个就行了。
提示缺少语句结束,为什么?
你的问题看起来不像是缺少语句结束，因为你在 Sub 程序的开始和结束都有正确的关键字。在 VB.NET 中，一个子程序（Sub）的结束关键字是 "End Sub"。你的代码看起来没有问题，它应该能够正常运行。你的 `GetDisplayInfo()` 函数应该是在另一个模块或者当前模块的其他地方定义的。如果 `GetDisplay...
...但运行一直提示编译错误 缺少End Sub 请问是什么原因呢
你第一个Sub后面没有跟End sub 或者 你把第一句也就是途中蓝色的部分，删除就可以了。
我编写文本为啥vb说编译错误,缺少end sub?
Private Sub 新建_Click(Index As Integer)Sub mnuNew_Click()你这有两个sub，是错误的。缺少一个end sub
