【缺少End Sub】据网上别人的VBA复制到EXCEL里面，但是一直显示缺少End Sub，请问是怎么回事？
展开全部
'把最后一行End Sub提前到第二行
'提取单元格A1的颜色
'Nex与t之间不能换行，是一个单词Next
'Next 之后要换行，GetRed = x另起一行
Sub 提取颜色()
MsgBox GetRed(Range("A1"))
End Sub
Function GetRed(Rng As Range)
'....
End Function
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
