Выбор нескольких диапазонов с использованием макроса

Можно сделать диапазон таким же, как и условие «ИЛИ». Любые идеи для его решения?

Sub search() Dim myArray As Variant Dim mRange As Range Dim mFCell As String Dim mCell As Range Dim mName As String Dim i As Integer Dim finalrow As Integer myArray = Range("J2:J4").Value mName = myArray.Value finalrow = Sheets("Sheet1").Range("A10000").End(xlUp).Row Set mRange = Sheets("Sheet1").Range("A:A") Set mCell = mRange.Find(What:=mName, MatchCase:=False, lookAt:=xlPart) For i = 2 To finalrow If Sheets("Sheet1").Cells(i, 1) = mCell.Value Then mFCell = mCell.Address Range(Cells(i, 1), Cells(i, 1)).Copy Range("I1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats 'Sheets("Sheet2").Range("B1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats Set mCell = mRange.FindNext(mCell) End If Next i End Sub 

Итак, мне нужно найти multipleRange, который был объяснен в комментарии.

Чтобы назначить значения диапазона массиву, вам нужно объявить массив как вариант

 Dim myArray As Variant myArray = someRange.Value 

Результатом является массив измерений (от 1 до нескольких строк) x (от 1 до числа столбцов), даже если диапазон является одномерным (только одна строка или столбец). Таким образом, значения

 myArray = Range("J2:J4").Value 

будет myArray(1, 1) , myArray(2, 1) , myArray(3, 1)

Давайте будем гением компьютера.