Como dividir uma coluna a cada duas linhas no Excel?
Por exemplo, tenho uma longa lista de dados e, agora, quero dividir a coluna em duas listas igualmente por todas as outras linhas, como mostrado a seguir na captura de tela. Existem boas maneiras de lidar com essa tarefa no Excel?
Divida uma coluna a cada duas linhas com Fórmulas
Divida uma coluna a cada duas linhas com o código VBA
Divida uma coluna a cada duas linhas com o Kutools para Excel
Divida uma coluna a cada duas linhas com Fórmulas
As fórmulas a seguir podem ajudá-lo a dividir rapidamente uma coluna em duas colunas por linha, faça o seguinte:
1. Insira esta fórmula em uma célula em branco, C2, por exemplo, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), veja a captura de tela:
2. Em seguida, arraste a alça de preenchimento para baixo até que os erros sejam exibidos nas células, veja a captura de tela:
3. Em seguida, insira outra fórmula na célula D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)e arraste a alça de preenchimento até as células até que os valores de erro apareçam e os valores da coluna tenham sido divididos em duas colunas a cada duas linhas, veja a captura de tela:
Divida uma coluna a cada duas linhas com o código VBA
Se você tem interesse em código VBA, aqui posso falar sobre um código para você resolver esse problema.
1. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: divida uma coluna em duas colunas a cada duas linhas
Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
If index Mod 2 = 1 Then
OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
num1 = num1 + 1
Else
OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
num2 = num2 + 1
End If
Next
End Sub
3. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados que deseja dividir, consulte a captura de tela:
4. E clique em OK, outra caixa de prompt é exibida para permitir que você selecione uma célula para colocar o resultado, veja a captura de tela:
5. Então clique OK, e a coluna foi dividida em duas colunas a cada duas linhas. Veja a imagem:
Divida uma coluna a cada duas linhas com o Kutools para Excel
Se você quiser aprender mais coisas novas, posso recomendar uma ferramenta poderosa -Kutools for Excel, Com o seu Faixa de transformação utilitário, você pode converter rapidamente uma única linha ou coluna em um intervalo de células e vice-versa.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora )
1. Selecione os dados da coluna que você deseja dividir em duas colunas a cada duas linhas.
2. Então clique Kutools > Variação > Faixa de transformação, veja a captura de tela:
3. No Faixa de transformação caixa de diálogo, selecione Coluna única para intervalo sob a Tipo de transformação, Em seguida, escolha Valor fixo e entre 2 na caixa no Linhas por registro seção, veja a captura de tela:
4. Então clique Ok botão, e uma caixa de prompt aparecerá para lembrá-lo de selecionar uma célula onde deseja enviar o resultado, veja a captura de tela:
5. Clique OK, os dados da lista foram divididos em duas colunas a cada duas linhas.
Clique para saber mais sobre este utilitário Transform Range.
Baixe grátis o Kutools para Excel agora
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
