약 3000 개의 목록이 있습니다. 아래 단어 찾기를 사용하여 "Incoterm tariff C"라는 용어를 선택하고 빈 데이터의 큰 부분을 삭제합니다. (열 A를 통해)
아래를 실행하면 350 줄에서 중지되고 "Run Time 13, Type mismatch"라는 오류 메시지가 표시됩니다. 아래 강조 표시된 줄에서 멈 춥니 다. 왜?
Sub wordfind()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For I = LastRow To 1 Step -1
If Range("A" & I).Value = "Incoterm Tariff C" Then ' error occurs here
Range("A" & I).Select
Selection.EntireRow.delete
ActiveCell.Offset(-13).Select
ActiveCell.Resize(12).Select
Selection.EntireRow.delete
End If
Next I
End Sub
바꾸다:
If Range("A" & I).Value = "Incoterm Tariff C" Then
와:
If Range("A" & I).Text = "Incoterm Tariff C" Then
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다