Копирование нескольких нечетных ячеек фильтрованных столбцов на второй лист

Question

У меня есть таблица, которую мне нужно автофильтировать в соответствии с критериями в столбце «AS», а затем скопировать количество отдельных дискретных столбцов в результате непустых ячеек в конкретные ячейки на следующем листе.

Каков наиболее эффективный способ сделать это? Я знаю, что мне, возможно, придется копировать/вставлять специальные значения вместо прямой ссылки

Answer 1

Я не совсем уверен, что вы просите. Но, представьте, что колонка А заполнена именами фруктов, а колонка B заполнена цифрами. Следующие коды кода Колонка А с критерием «Яблоки» и копирует соответствующие номера на новый рабочий лист. Это может привести вас к правильному пути.

Sub selectApples() 

' Find last row in column A 
Dim LastRow As Integer 
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 

' Select data in column A and filter 
Range("A1:A" & LastRow).Select 
Selection.AutoFilter Field:=1, Criteria1:="Apples" 

'Find new last row 
Dim newLastRow As Integer 
newLastRow = Cells(Rows.Count, 1).End(xlUp).Row 

'Copy and paste special into new worksheet 
Range("B2:B" & newLastRow).Select 
Selection.Copy 
Sheets.Add After:=ActiveSheet 
Selection.PasteSpecial Paste:=xlPasteValues 

End Sub