Leandro_Amm
-
Total de itens
1 -
Registro em
-
Última visita
Tudo que Leandro_Amm postou
-
Olá amigo! Veja se assim te ajuda. Sub separar_dados() Range("h1").Select Do If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(1, 0).Select Selection.EntireRow.Insert ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell.Offset(0, 1).Value) = True End Sub Valeu!