오류 13 간단한 찾기 및 바꾸기에서 VBA

Question

나는 programminging에서 새로운 오전, 내 질문은 지루한 경우 미안해.

I 셀 범위에 문자열 "시큰둥"확인하고

지금까지 내 코드 "BlahBlah"을 위해 위의 셀을 대체 매크로 만들려고 오전 :

Sub Findandreplace() 


Dim E As String, Wide As Range, R As Range 

E = "Meh" 

Set Wide = Range("A1:CM300") 

For Each R In Wide 

    If InStr(R.Value, "Meh") > 0 Then 
     R.Offset(-1, 0).Value = "BlahBLah" 

End If 

를이 처음 실행했을 때 작동했지만, 이제는 if 문에 오류 유형 13이 표시됩니다. 나는 무언가를 어둡게해야한다는 것을 알고 있지만, 무엇을 모르는지.

도움 주셔서 감사합니다.

Answer 1

아니요. Dim은 없습니다. 그런데 변수 이름은 끔찍합니다.

당신은 셀 값 자체가 오류 코드에서와 IsError

Sub test() 
Dim E As String, Wide As Range, R As Range 

E = "Meh" 

Set Wide = Range("A1:CM300") 

For Each R In Wide 

    '/ Check if the cell contains an error. 
    If Not IsError(R) Then 
     If InStr(R.Value, E) > 0 Then 
      R.Offset(-1, 0).Value = "BlahBLah" 
     End If 
    End If 
Next 


End Sub