ExCEl 编译错误 缺少EnD suB

Private Sub CommandButton1_Click() Range(&quo

Private Sub Worksheet_Change(ByVal Target As Range

看看是否中间有结束的地方，或者是加的end sub在执行时能被跳过去

For j = 1 To Range("xdf1").End(xlToLeft)

Private Sub Worksheet_SelectionChange(ByVal Target

函数里面可以再定义函数吗？这个不是c++，不能这么干吧。

'把最后一行End Sub提前到第二行'提取单元格A1的颜色'Nex与t之间

一段代码里不能同时出现两个sub，请看这里， 有两个sub，只要删除一个就可以了。 很高兴为你解答

最后1行输入 END SUB

For j = 1 To Range("xdf1").End(xlToLeft)