#excel #vba #autofilter
Вопрос:
«пожалуйста, кто знает лучший код для автофильтра, посоветуйте мне, как выполнить автофильтрацию в определенную колонку», а не в конец листа
Sub copy_filter_data() Dim count_col, count_row As Integer Dim orig, output As Worksheet Worksheets("Sheet1").Activate Set orig = ThisWorkbook.Sheets("Sheet1") Set output = ThisWorkbook.Sheets("Sheet2") count_col = WorksheetFunction.CountA(Range("A5", Range("A5").End(xlToRight))) count_row = WorksheetFunction.CountA(Range("A5", Range("A5").End(xlDown))) ActiveSheet.Range("A5").AutoFilter Field:=18, Criteria:=Cells(5, 35).Value orig.Range(Cells(5, 1), Cells(count_row, count_col)).SpecialCells(xlCellTypeVisible).Copy output.Cells(5, 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub Комментарии:
1. Что вы подразумеваете под «лучше»?
2. Строка
orig.Range(Cells(5, 1), Cells(count_row, count_col))должнаorig.быть перед каждым экземпляромCells.3. Этот код не работает на моем листе, я не знаю, где ошибка. Спасибо
4. BigBen. Я не копировал. Пожалуйста, объясните
5. Тебе нужно
orig.Range(orig.Cells(5, 1), orig.Cells(count_row, count_col))....