Início / coding / Perguntas / 79486531
Accepted
Alan - Seattle
Asked: 2025-03-05 20:45:54 +0800 CST

Estou com problemas com uma classificação do Excel 2019 puxando a linha acima da área selecionada para classificar. Alguém pode me ajudar a consertar isso?

  • 772

Estou tentando ajudar minha liga de golfe a automatizar a manipulação de planilhas de programação semanal escrevendo algum código VBA. O processo envolve a gravação de macros para imitar o processo deles. Ao tentar classificar em uma seleção de coluna parcial, a classificação puxa a linha acima da seleção (uma linha de cabeçalho na linha 6) para a classificação. Tentei de tudo e li muitos artigos sobre isso, não faz sentido para mim e não consigo consertar. Alguém aí pode me ajudar? Veja as capturas de tela abaixo para ver o que está acontecendo e o que tentei consertar.

capturas de tela do problema

excel

1 respostas

  1. Best Answer

    Classificar dados

    Sub SortHandles()

    ' Define constants.
    Const SHEET_NAME As String = "Sheet1"
    Const HEADER_CELL_ADDRESS As String = "A6" ' row 5 is empty
    Const SORT_COLUMN As Long = 3  
     
    ' Reference the objects.
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    Dim ws As Worksheet: Set ws = wb.Sheets(SHEET_NAME)
    Dim rg As Range:
    With ws.Range(HEADER_CELL_ADDRESS).CurrentRegion
        Set rg = .Resize(.Rows.Count - 1).Offset(1) ' exclude top row
    End With
    
    ' Sort.
    rg.Sort rg.Columns(SORT_COLUMN), xlAscending, , , , , , xlNo

End Sub
    • 0

relate perguntas