Excel VBA里面编译错误 缺少End Sub 怎么解决

Private Sub Worksheet_Change(ByVal Target As Range)是一个‘表格点选唯银键位置改变触发的搏磨事件过程’，不需要再增加‘Sub 按名称筛选片段图片()’也不需要写在模指巧块中，Sheet("引用")应写作Sheets("引用")其他类似，没有你的表格，无法测试。

For Each x In Sheet("引用").Range("A2", [A1048576].End(3)) 这句有问题的。[A1048576].End(3)出来的是Activesheet表的单元格，当activesheet不是Sheet("引用")表的时候， Sheet("引用").Range属性会失败的。改成Sheet("引用").Range("A2",Sheet("引用"). [A1048576].End(3))试试。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.ScreenUpdating = False
Dim s As Shape, x As Range, found As Range
For Each s In Sheet("引用闷含和蚂盯"老森).Shapes
If s.Type = 13 Then s.Delete
Next s

For Each x In Sheet("引用").Range("A2", Sheet("引用").[A1048576].End(3))
Set found = Sheet("原始数据").[A:A].Find(x, , , 1)
If Not found Is Nothing Then
found.Offset(, 16).Copy x.Offset(, 16)
End If
Next x

Application.ScreenUpdating = True
End If
End Sub

Sub 按名称筛选禅备片段贺枝毁图片()
Private Sub Worksheet_Change(ByVal Target As Range)
多了一个搭团，要删除Sub 按名称筛选片段图片()

你这里有两个工程头了

也不知道你要用哪个工程序，一个工程里只有一个 sub   和一个End sub

你现在这里有滑轮两个头和一个End sub

根据你现在的代信指信码，这个工逗哪程应该去掉第一个工程头

好像与If对应的
End If
少了