ExcelVBA_CurrentValuecu_Filter?

Question

Заранее спасибо и извините за плохой английский!

Я хочу

fix100 -> текущий столбец и номер последней строки?

Ячейки (100, ActiveCell.Column)) ---> Ячейки (???, ActiveCell.Column))

Sub ExcelVBA_CurrentValuecu_Filter()
    ActiveSheet.Range(Cells(1, ActiveCell.Column), Cells(100, ActiveCell.Column)).AutoFilter Field:=1, Criteria1:=ActiveCell.Value
End Sub

Answer 1

Попробуйте этот код:

Sub ExcelVBA_CurrentValuecu_Filter()
    With ThisWorkbook.ActiveSheet
        .Range(.Cells(1, ActiveCell.Column), .Cells(.Rows.Count, ActiveCell.Column).End(xlUp)). _
        AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    End With
End Sub

Оператор .Cells(.Rows.Count, ActiveCell.Column).End(xlUp) найдет последнюю ячейку в вашем столбце, в которой есть данные. Я использовал блок With, чтобы правильно определить все диапазоны, которые вы используете в своем коде. Вот почему перед .Cells стоит точка .. Это то же самое, что всегда писать ActiveSheet.Cells.