Página 1 de 1

Inserir colunas e linhas alternadas

Enviado: 13 Fev 2016 às 11:49
por leonardoggiovanelli
Como faço para alterar uma coluna ou linha alternada? Para ficar mais claro, se tenho as seguintes células:
a | a | a | a |... gostaria que ficasse a | | a | | a | | a | | a | | a ...

Re: Inserir colunas e linhas alternadas

Enviado: 19 Fev 2016 às 08:58
por alexandrevba
Bom dia!!

Eu não entendi muito bem.
Código: Selecionar todos
Sub AleVBA_InsereLinhas()

   'Seleciona ultima linha com dados.
   Selection.End(xlDown).Select

   Do Until ActiveCell.Row = 1
      'Insere uma linha em branco.
      ActiveCell.EntireRow.Insert shift:=xlDown
      'Move para cima.
      ActiveCell.Offset(-1, 0).Select
   Loop

End Sub
Veja mais em:
http://www.extendoffice.com/documents/e ... olumn.html

Att