Como gerar números no formatos de data e horar sequencial?

[Rogério Maximo Vieira]

Boa noite galera,

Estou precisando de uma ajudinho de vocês.

 

Eu preciso criar 100.000 registros igual a linha de exemplo abaixo mudando apenas o campo data e hora.

 

Linha 1 <VOICE_S>,0000000001,RPM,118,,0,20160320210134,,,,1170870000,,1,1170870001,1170870000,N,0,1170870001,,0,1,,,0,,20160301000000,20160301000100,20160301000000,20160301000100,20160301000000,20160301000100,049,000,,,,,010,010,,,,,1170870001,0000000001,000004240,,,,,,,,,,,<LNP_S>,010,010,010,11000,11000,11000,1,1,1,<LNP_E>,<VOICE_E>;
Lina 2 <VOICE_S>,0000000002,RPM,118,,0,20160320210134,,,,1170870000,,1,1170870001,1170870000,N,0,1170870001,,0,1,,,0,,20160301000100,20160301000200,20160301000100,20160301000200,20160301000100,20160301000200,049,000,,,,,010,010,,,,,1170870001,0000000002,000004240,,,,,,,,,,,<LNP_S>,010,010,010,11000,11000,11000,1,1,1,<LNP_E>,<VOICE_E>;
 

As 100 mil linhas serão de 1 em 1 minuto.

20160301000000

20160301000100

20160301000200

Alguém consegue me ajudar com um formula no Excel para gerar esses números sequencias? Ou até mesmo um outro script capaz de gerar esses números?

 

Desde já agradeço a atenção de todos. 

[CasaDoHardware]

Se eu entendi

 

Cole esse codigo em um modulo e associe a um botão

 

Sub Sequencia()

Dim Seq As String
Dim Linha As Long

Seq = Format(Date, "YYYYMMDD") & Format(Time, "HHMMSS")
Linha = 2
For A = 1 To 100000

Cells(Linha, 1).Value = Seq

Seq = Seq + 1
Linha = Linha + 1

Next

End Sub