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)