Private Sub CommandButton1_Click() Range("G1").Select Application.CutCopyMode = False Selection.Consolidate Sources:= _ "'C:\Documents and Settings\Administrator\桌面\[新建 Microsoft Excel 工作表 (5).xls]Sheet1'!C4:C5" _ , Func...
Private Sub Worksheet_Change(ByVal Target As Range)是一个‘表格点选位置改变触发的事件过程’，不需要再增加‘Sub 按名称筛选片段图片()’也不需要写在模块中，Sheet("引用")应写作Sheets("引用")其他类似，没有你的表格，无法测试。
看看是否中间有结束的地方，或者是加的end sub在执行时能被跳过去
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells "" Then Target.Cells.Value = Target.Cells.Value + 1 End If End Sub 这才是完整的，要sub 自加一()没有用
函数里面可以再定义函数吗？这个不是c++，不能这么干吧。
For j = 1 To Range("xdf1").End(xlToLeft).Column 这一行，Range("xdf1")不存在，应该是Range("vf1")吧。 这个代码应该是在列A里面搜索和单元格B32内容一致的表格，并且把表格地址和内容在C32以后打印出来。 可以测试一下，给A列一组数据，在B3...
'把最后一行End Sub提前到第二行'提取单元格A1的颜色'Nex与t之间不能换行，是一个单词Next'Next 之后要换行，GetRed = x另起一行Sub 提取颜色()MsgBox GetRed(Range("A1"))End SubFunction GetRed(Rng As Range)'....End Function
一段代码里不能同时出现两个sub，请看这里， 有两个sub，只要删除一个就可以了。 很高兴为你解答，希望能帮到你！
If Application.Intersect(Target, [c:c]) Is Nothing ThenIf Application.Intersect(Target, [b:b]) Is Nothing Then Exit SubEndIFEndIF改为上述代码试试，应该是 IF 没有 EndIF 引起的，IF 可以在特定情况不用 EndIF 但有时候书写不注意就容...
For j = 1 To Range("xdf1").End(xlToLeft).Column 这一行，Range("xdf1")不存在，应该是Range("vf1")吧。 这个代码应该是在列A里面搜索和单元格B32内容一致的表格，并且把表格地址和内容在C32以后打印出来。 可以测试一下，给A列一组数据，在B3...