Цитата |
---|
Kuzmich написал: Попробуйте применить регулярные выражения, типа |
Sub Maska()
Dim iRange As Range
Dim MaskRange As Range
'добавил это
Dim A(1 To 9) As Integer
Dim B(1 To 9) As Integer
Dim C(1 To 9) As Integer
Dim D(1 To 9) As Integer
Dim O(0) As Integer
'ваш код
Columns(2).ClearContents
Set iRange = Range("A1").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 1)
Set MaskRange = Range("D1").Resize(Cells(Rows.Count, 4).End(xlUp).Row, 1)
'добавил это
If A <> B And A <> C And A <> D And B <> C And B <> D And C <> D Then
'ваш код
iRange.AdvancedFilter xlFilterCopy, CriteriaRange:=MaskRange, copytorange:=Range("B1"), unique:=False
End Sub
Уважаемый Kuzmich! Это ваш код, который я пытаюсь переделать под себя. Но так как в VBA я никакой у меня все время ошибки вылезают. Насколько я близок к истине и как все таки написать знак не равенства? Если не затруднит, помогите завершить эту задачу.
Заранее спасибо!