найти ошибку

[horpenst]

Помогите найти ошибку.
Sub h()
If Range("a1:a5") = Range("b1:b5") Then
Range("a1:b5").ClearContents
End If
End Sub

[IgorGO]

Sub h()
  dim ClCn as boolean, i as long
  clcn = true
  for i = 1 to Range("a1:a5").cells.count
    Range("a1:a5").cells(i) <> Range("b1:b5").cells(i) Then clcn = false: exit for
  next
  if clcn then Range("a1:b5").ClearContents
End Sub

[kuklp]

Игорь, If пропустил.

[IgorGO]

спасибо, точно, пропустил.
та... пишу прямо сюда, редактор бы всполошился: then без if!!!.
хорошо, что ты выступил в роли редактора и бдительно зарубил ошибку.

[kuklp]

Свой вариант, без цикла:

Sub h1()
Dim a, b: a = [a1:a5]: b = [b1:b5]
 If Join(Application.Index(a, 1, 0),"|") = Join(Application.Index(b, 1, 0),"|") Then [a1:b5].ClearContents
End Sub