|
▼an さん:
こんにちは。一度試してみてください。
下記のようにコードを書くと、「型が一致しません」と表示され
てしまいます。
For i = 10 To 40
エラー値 = "#N/A"
If Cells(m, 6).Value = エラー Then
Range("B" & m & ":M" & m).ClearContents
End If
Next m
原因がお分かりになる方、教えていただけると大変助かります。
↓ ↓
変数を「i」に設定したらその変数を使います。(いつの間にかmに変わってしまっています)・・・「m」は何を指すのでしょう?ここが問題になっています。
後は問題なさそうです。
私なりに貴方のコードを使って書いてみました。これでいけると思います。
お試しみてください。
Sub 削除() 'VLookUpで#N/Aが発生したらその行の8列削除
Dim i as Integer 'この行は無くても動きますが
For i = 10 To 40
On Error Resume Next
エラー値 = "#N/A"
If Cells(i, 6).Value = エラー値 Then
Range("B" & i & ":M" & i).ClearContents
End If
Next i
On Error GoTo 0
End Sub
|
|