Caso de uso do Excel - fornece números preferenciais para uma lista grande - números de incremento automático

0

[Excel 2013] Eu tenho uma lista grande de itens e quero adicionar um número de preferência a cada linha manualmente com base na minha preferência. Exemplo abaixo:

Value   Preference
Row1    6
Row2    _
Row3    2
Row4    _
Row5    3
Row6    1
Row7    5
Row8    4

Atualmente, escolho a linha e adiciono o número de preferência manualmente. Isso se torna cansativo, especialmente quando eu vou para 3 dígitos. Quero que o excel ajude com o incremento automático em qualquer linha que eu escolher. Por exemplo, eu escolho Row4 em seguida, e 7 deve ser inserido como Preferência. E então, se eu escolher Row2, 8 deve ser inserido como Preferência.

    
por aalosious 09.04.2017 / 11:41

2 respostas

1

A macro seria:

Sub enterNextNumber()
    If ActiveCell.Value = "" Then ActiveCell.Value = WorksheetFunction.Max(Columns(ActiveCell.Column)) + 1
End Sub

Você poderia vinculá-lo a um atalho como Ctrl + I , então você selecionaria sua próxima célula, pressionaria o atalho e ele digitaria o próximo número na sua sequência, olhando para o maior número existente na coluna ativa e adicionando 1.

    
por 09.04.2017 / 12:00
0

Obrigado, David. A macro faz exatamente o que eu estava procurando ...

Eu encontrei uma solução não macro após postar a pergunta. Parece funcionar mais rápido que a solução baseada em macro em tabelas com algumas linhas de 10k.

A coluna B é minha coluna preferencial.

  1. Clique em Fitas da faixa de opções > Opções de cálculo > Escolha "Manual".
  2. Paste "= MAX (E: E) +1" na célula de B que eu quero que a próxima preferência esteja.
  3. Quando terminar de atribuir as preferências, retorne as Opções de cálculo para "Automático".
  4. Copie Coluna B e Cole (somente texto) em uma Coluna vazia e copie de volta para B, para estar seguro (evite qualquer atualização acidental).

Isso é menos elegante do que a solução Macro de David ... mas para alguém não familiarizado com macros, isso pode ajudar.

    
por 10.04.2017 / 14:13