请大家帮我看看我的代码哪里有问题

EXCEL渣渣

这是我通过录制宏所得到的代码，d当我调试的时候总会报错----end if没有块if
请问是什么原因，应该如何修改，请指教，谢谢

Sub 删除()
   myPath = ThisWorkbook.Path & "\"
   MyName = Dir(myPath & "*.xls*")
   Application.DisplayAlerts = False
   Do While MyName <> ""
       If MyName <> ThisWorkbook.Name Then
           Set wb = Workbooks.Open(myPath & MyName)
           With wb.Sheets(1)
Range("J:J,K:K,L:L").Delete
Range("K3：K19").Delete
Range("C3:C19").Select
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
           wb.Close True
      End If
      MyName = Dir
   Loop
   Set wb = Nothing
   Application.DisplayAlerts = True
   MsgBox "修改完成！"
End Sub

这个是昵称吗

End With 这句前面或者后面在加一句

End With

EXCEL渣渣

这个是昵称吗 发表于 2018-7-21 13:34
End With 这句前面或者后面在加一句

End With

加了以后进入死循环了

lsc900707

除了加 end with,还有range前面有个点的：
.Range("J:J,K:K,L:L").Delete

.Range("K3：K19").Delete
.Range("C3:C19").Select

microyip

缺少End With

这个是昵称吗

EXCEL渣渣 发表于 2018-7-21 13:37
加了以后进入死循环了

我没看代码具体在干啥，反正得你With 没有结尾
就是这段
With wb.Sheets(1)
Range("J:J,K:K,L:L").Delete
Range("K3：K19").Delete
Range("C3:C19").Select

凌空一羽

Sub 删除()
   myPath = ThisWorkbook.Path & "\"
   MyName = Dir(myPath & "*.xls*")
   Application.DisplayAlerts = False
   Do While MyName <> ""
       If MyName <> ThisWorkbook.Name Then
           Set wb = Workbooks.Open(myPath & MyName)
           With wb.Sheets(1)
                .Range("J:J,K:K,L:L").Delete
                .Range("K3：K19").Delete
                .Range("C3:C19").Select
            End With
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
           wb.Close True
      End If
      MyName = Dir
   Loop
   Set wb = Nothing
   Application.DisplayAlerts = True
   MsgBox "修改完成！"
End Sub

EXCEL渣渣

这个是昵称吗 发表于 2018-7-21 13:39
我没看代码具体在干啥，反正得你With 没有结尾
就是这段
With wb.Sheets(1)

已经解决了，谢谢