Como alterar a altura das linhas e a largura das colunas alternadas no Excel?
Suponha que tenha uma folha de cálculo extensa com várias colunas ou linhas cuja largura ou altura precise de ser ajustada alternadamente. Se forem apenas algumas, pode alterar manualmente a altura das linhas ou a largura das colunas, uma a uma. Mas como ajustar múltiplas alturas de linha ou larguras de coluna de uma só vez no Excel?
Alterar cada outra Altura da Linha com a função Filtro
Alterar cada outra Altura da Linha / Largura da Coluna com código VBA
Alterar cada outra Altura da Linha / Largura da Coluna com Kutools para Excel
Alterar cada outra Altura da Linha com a função Filtro
Ao utilizar a função Filtro, terá primeiro de criar uma coluna auxiliar, aplicar depois a funcionalidade Filtro para filtrar as linhas pretendidas e ajustar a altura de todas as linhas filtradas de uma só vez. Proceda da seguinte forma:
1. Ao lado dos seus dados, introduza o número 0 na primeira linha e 1 na segunda linha de uma célula vazia, selecione ambas e arraste a alça de preenchimento até às células do intervalo cuja altura da linha pretende ajustar. Em seguida, verifique Copiar Células a partir da alça de preenchimento e obterá o resultado apresentado na seguinte captura de ecrã:
2. Em seguida, selecione a coluna auxiliar e clique em Dados > Filtro. Depois, clique no botão 
e selecione 0 ou 1 na lista pendente. Neste exemplo, selecionarei 0, conforme mostra a captura de ecrã:
3. Clique em OK. Todas as linhas que contêm o número 0 foram filtradas. Selecione essas linhas filtradas e clique em Base > Formatar > Altura da Linha, conforme mostra a captura de ecrã:
4. Na caixa de diálogo Altura da Linha, introduza a altura da linha pretendida, conforme mostra a captura de ecrã:
5. Em seguida, clique em OK para fechar esta caixa de diálogo e as suas alturas de linha filtradas selecionadas serão ajustadas. Por fim, clique em Dados > Filtro para desativar a funcionalidade de filtro e as suas alturas de linha terão sido alteradas alternadamente. Veja a captura de ecrã:
Notas:
1. Pode ajustar alternadamente a altura das linhas, começando na primeira linha.
2. Este método não se aplica à alteração da largura das colunas.
3. Após concluir o procedimento, pode eliminar a coluna auxiliar, se assim o desejar.
Alterar cada outra Altura da Linha / Largura da Coluna com código VBA
Se precisar de ajustar tanto a altura das linhas como a largura das colunas, o seguinte código VBA poderá ajudá-lo.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Alterar cada outra Altura da Linha numa folha de cálculo
Sub RowHeight()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Row height", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Rows.Count Step 2
WorkRng.Rows(i).RowHeight = xInput
Next
End Sub
3. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de aviso a solicitar que selecione o intervalo cuja altura da linha pretende ajustar, conforme mostra a captura de ecrã:
4. Em seguida, clique em OK e surgirá outra caixa de aviso a solicitar que introduza a Altura da Linha pretendida, conforme mostra a captura de ecrã:
5. Em seguida, clique em OK e a altura das linhas no seu intervalo selecionado será alternadamente ajustada a partir da primeira linha. Veja a captura de ecrã:
Notas:
1. Se pretender ajustar a largura de outras colunas, aplique o seguinte código VBA:
Código VBA: Alterar cada outra Largura da Coluna numa folha de cálculo
Sub CloumnWidth()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Cloumn width", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Columns.Count Step 2
WorkRng.Columns(i).ColumnWidth = xInput
Next
End Sub
2. Se pretender ajustar a altura das linhas ou a largura das colunas a partir da segunda linha/coluna, basta selecionar o intervalo de dados desde essa segunda linha/coluna.
Alterar cada outra Altura da Linha / Largura da Coluna com Kutools para Excel
Se tiver instalado o Kutools para Excel, a sua funcionalidade Selecionar Linhas/Colunas em Intervalos também o pode ajudar: selecione primeiro cada linha ou coluna alternada e, em seguida, altere simultaneamente a altura da linha e a largura da coluna.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente, sem limitações, durante 30 dias.Obtenha já.
1. Selecione o intervalo de dados que pretende utilizar.
2. Aceda a Kutools > Selecionar > Selecionar Linhas/Colunas em Intervalos, conforme mostra a captura de ecrã:
3. Na caixa de diálogo Selecionar Linhas/Colunas em Intervalos, marque Linhas ou Colunas na secção Selecionar, conforme desejar, e, na secção Opções, introduza o Intervalo de e Colunas ou Linhas pretendido. Neste exemplo, escolhi colunas, conforme mostra a captura de ecrã:
4. Em seguida, clique em OK e cada coluna alternada será selecionada na secção, conforme mostra a captura de ecrã:
5. Em seguida, clique em Base > Formatar > Largura da Coluna e introduza o valor pretendido para a largura da coluna na caixa de diálogo Largura da Coluna, conforme mostram as capturas de ecrã:
 |  |  |
6. Em seguida, clique em OK e a largura da coluna será alterada alternadamente a partir da primeira coluna.
Notas:
1. Para selecionar cada linha alternada, marque Linhas na caixa de diálogo Selecionar Linhas/Colunas em Intervalos no passo 3.
2. Se pretender ajustar a altura das linhas ou a largura das colunas a partir da segunda linha/coluna, basta selecionar o intervalo de dados correspondente.
Artigos relacionados:
Como sombrear automaticamente cada linha alternada no Excel?
Como eliminar rapidamente cada linha alternada no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos