Macro para duplicar linhas

Question

Olá senhores,

estou quebrando a cabeça para tentar uma macro que faça o seguinte:

tenho varias linhas com dados de cadastro de fornecedor, contendo CNPJ fantasia etc, porém vou importar isso em outro lugar e nesse lugar por padrão preciso duplicar ou seja, exemplo:

tenho um monte de informações de cadastro assim:

cod 1microsoft - 342329382390001 - av nacoes unidas

cod 2 piraja com - 328327382738273 - av faria lima

a macro precisa duplicar, e deixa logo abaixo, assim:

cod-1 microsoft - 342329382390001 - av nacoes unidas

cod-1 microsoft - 342329382390001 - av nacoes unidas

cod-2 piraja com - 328327382738273 - av faria lima

cod-2 piraja com - 328327382738273 - av faria lima

obs. utilizo o office 2013

Conseguem ajudar ?

agradeço.

abraços.

Answer 1

Olá!

É possível fazer essa rotina pelo gravador de macros. Veja um exemplo de código gerado no gravado com poucas alterações no editor VBE:

Sub Duplicar_Tabela()

Range("A2").Select

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Selection.Copy

Range("A1").End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste

Range("A1").Select

Application.CutCopyMode = False

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Plan1").Sort

.SetRange Range("A2", ActiveCell.SpecialCells(xlLastCell)) 'Range("A2:D" & Rows.Count)

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

Answer 2

Rafael,

Rodei novamente e deu certo.

Super obrigado.

Abraços

Rodolfo

Answer 3

Rafael,

Cara, quase perfeito.

Eu rodei mas ele duplicou mais de uma vez. onde consigo fazer ele fazer apenas uma vez ?

Obrigado