Como usar macros para classificar dados em várias colunas como uma coluna no Excel

Traduções deste artigo Traduções deste artigo
ID do artigo: 247311 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Microsoft Excel não tem um método interno para classificar uma coluna de jornal (snaking) de dados. Este artigo contém uma macro de exemplo para classificar dados em um formato de coluna de jornal.

Mais Informações

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

Classificação interna

No Microsoft Excel, você geralmente deve usar o recurso de classificação para classificar uma lista. Uma lista no Excel é uma série de linhas da planilha que contêm dados relacionados, como um banco de dados da nota fiscal ou um conjunto de números de telefone e nomes de cliente. Você pode usar uma lista como um banco de dados, na qual cada linha é um registro, e as colunas são campos. A primeira linha da lista geralmente tem rótulos para as colunas, por exemplo:
   A1: Q1   B1: Q2   C1: Q3
   A2: 10   B2: 2    C2: 4
   A3: 14   B3: 18   C3: 9
   A4: 7    B4: 17   C4: 12
   A5: 1    B5: 13   C5: 5
   A6: 11   B6: 8    C6: 16
   A7: 3    B7: 6    C7: 15
				
se você classificou esta lista em ordem crescente, pela Q1 campo (coluna A), os resultados seriam da seguinte maneira:
   A1: Q1   B1: Q2   C1: Q3
   A2: 1    B2: 13   C2: 5
   A3: 3    B3: 6    C3: 15
   A4: 7    B4: 17   C4: 12
   A5: 10   B5: 2    C5: 4
   A6: 11   B6: 8    C6: 16
   A7: 14   B7: 18   C7: 9
				

Classificar uma coluna de estilo de jornal

Colunas de jornal e snaking colunas são termos diferentes para o mesmo tipo de formato de dados. Em colunas de jornal, os dados preenche uma coluna e continua na parte superior da coluna seguinte. Nesse caso, seus dados provavelmente não têm rótulos para cada coluna, por exemplo:
   A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
				
você pode usar a macro de exemplo neste artigo para classificar colunas de jornal em ordem crescente. Se você usar a macro de exemplo nos dados acima, os resultados são da seguinte maneira:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				
para ver a macro classificação funciona como descrito, execute estas etapas:
  1. Abra uma nova pasta de trabalho.
  2. Digite os seguintes dados de exemplo na planilha:
       A1: 10   B1: 2    C1: 4
       A2: 14   B2: 18   C2: 9
       A3: 7    B3: 17   C3: 12
       A4: 1    B4: 13   C4: 5
       A5: 11   B5: 8    C5: 16
       A6: 3    B6: 6    C6: 15
    					
  3. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
  4. No menu Inserir , clique em módulo .
  5. Digite o seguinte código no módulo:

    Observação O exemplo a seguir demonstra como classificar em ordem crescente. Você pode alterar isso modificando o valor da "Order1: =" argumento para xlDescending .
       Sub SortAllRangeData()
       ' Place column header for temporary sort area.
       Range("IV1").Value = "Numbers"
       
       ' Move numbers to temporary sort location.
       For Each cell In Selection
          Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
       Next cell
       
       ' Sort numbers in ascending order.
       Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"),  _
       Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            
       ' Move sorted data back to original sheet location.
    
       Selection(1, 1).Activate ' Make sure the ActiveCell is the
                                ' top left of Selection first.
       CCnt = Selection.Columns.Count
       RCnt = Selection.Rows.Count
       CellCnt = Selection.Cells.Count
       Tcell = 2
       For c = 1 To CCnt
         For r = 1 To RCnt
            Range(ActiveCell.Address).Offset(r - 1, c - 1).Value =  _
            Range("iv" & Tcell).Value
            Tcell = Tcell + 1
         Next r
       Next c
       
       ' Clean up temporary sort location.
       Range("IV1", Range("IV1").End(xlDown)).Clear
    End Sub
    					
  6. No menu Excel no Microsoft Excel X para Mac e em versões posteriores do Excel para Mac, ou no menu Arquivo em todas as outras versões do Excel, clique em Fechar e voltar para o Microsoft Excel .
  7. Selecione A1:C6.
  8. No menu Ferramentas , aponte para macro e, em seguida, clique em macros . Selecione a macro SortAllRangeData e, em seguida, clique em Executar .
Todos os dados no intervalo selecionado agora são classificados e aparece da seguinte maneira:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				

Referências

Excel X para Mac e versões posteriores

Para obter mais informações sobre como classificar, clique em Ajuda do Excel no menu Ajuda , digite a classificação , clique em Pesquisar e, em seguida, clique em um tópico para exibi-lo.

Para obter mais informações sobre como use o método Sort do Editor do Visual Basic, clique em Ajuda do Visual Basic no menu Ajuda , digite o método de classificação , clique em Pesquisar e, em seguida, clique para exibir o método sort .

Excel 2001 para Mac

Para obter mais informações sobre como classificar, clique em do Assistente do Office , digite Classificar uma lista , clique em Pesquisar e, em seguida, clique em um tópico para exibi-lo.

Observação Se o Assistente estiver oculto, clique no botão Assistente do Office na barra de ferramentas padrão .

Para obter mais informações sobre como use o método Sort do Editor do Visual Basic, clique em do Assistente do Office , digite o método de classificação , clique em Pesquisar e, em seguida, clique para exibir o método sort .

Propriedades

ID do artigo: 247311 - Última revisão: quinta-feira, 25 de janeiro de 2007 - Revisão: 6.3
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X para Macintosh
  • Microsoft Excel 2001 para Mac
  • Microsoft Excel 98 for Macintosh
Palavras-chave: 
kbmt kbautomation kbprogramming kbhowto KB247311 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 247311

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com