Aplicando Filtro e Localizando a Última Célula - Excel

Question

Subtest_sum()last_row_in_Process_sheet=Application.Workbooks(file_name).Worksheets("ms").Range("a65536").End(xlUp).Row
atmCurrentSum = Application.WorksheetFunction.Subtotal(9,Range("AQ3:AQ4533"))
MsgBox last_row_in_Process_sheet
MsgBox atmCurrentSum
End Sub

Os dados acima são dados filtrados, Quando consultados para a última célula usada na coluna "A" .Estou recebendo "A232", mas preciso do resultado como "A255".

qual função eu preciso usar aqui?

Eu preciso obter total de célula filtrada em AQ255 para COLUMN AQ

    

Answer 1

Encontrar a primeira linha vazia no Excel da maneira mais fácil é com UsedRange e ActiveSheet.Usedrange.Rows.Count+1

(se seus dados não começarem na primeira linha, use: ActiveSheet.Usedrange.Row + ActiveSheet.Usedrange.Rows.Count )

    

Answer 2

Converta seus dados em uma tabela. Então funciona.

• Ative o insert ribon (menu)
• Selecione table
• Indique que seus dados já têm cabeçalhos
• Insira

Para ser honesto, eu chamo isso de bug no Excel.

Se você precisar da primeira célula vazia em vez da última não vazia, aplique um deslocamento de 1 linha

last_row_in_Process_sheet = Application.Workbooks(file_name).Worksheets("ms").Range("a65536").End(xlUp).Offset(RowOffset:=1).Row