Сравнение столбцов и строк выбора

Question

Как я могу взять каждое число из столбца J и выбрать все строки, где это число находится в столбце F ..? Пример:

• Возьмите первый номер из столбца J (11123)
• Поиска колонка F и выбрать все строки, что первое число (11123) является значением
• Возьмет следующий номер из колонки J (11124)
• Поиск колонка F и добавить в выбранные строки из предыдущего поиска, строки, содержащей номер (11124)
• и так далее до конца колонке J

Я стараюсь, но я получаю сообщение об ошибке:

Sub qTest() 

Sheets("Sheet1").Activate 
Dim fRNG As Range 
Dim aRNG As Range 

Set fRNG = Sheets("Sheet1").Range("F2", Sheets("Sheet1").Range("F2").End(xlDown)) 
Set aRNG = Sheets("Sheet1").Range("J2", Sheets("Sheet1").Range("J2").End(xlDown)) 

aRNG.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=fRNG, Unique:=False 

Dim aADD As String 
aADD = aRNG.SpecialCells(xlCellTypeVisible).Address 

aRNG.Parent.ShowAllData 

Range(aADD).EntireRow.Select 

End Sub 

Answer 1

С чего нужно добиться, я думаю, что это гораздо проще скопировать/вырезать данные в столбце J (от J2 до Jxxx) затем вставьте данные внизу столбца F, затем выполните сортировку данных в столбце F. Кодов VBA не требуется!