请教vba高手们，为什么我下面这个代码运行时说我编辑缺少“end sub”？

Question

如题所述

Answer 1

你的代码有一个自定义函数,有一个按钮1的过程,所以应该有两人end sub,可是你只有一个.你删除第一或第二行,问题就能解决.

Answer 2

楼主删除第二行代码（Private……），再次运行OK本回答被提问者采纳

Answer 3

Sub Test()与Private Sub CommandButton1_Click()二选一。
也就是说
Sub Test()
'你的代码
End Sub
或者
Private Sub CommandButton1_Click()
'你的代码
End Sub