Preechimento de dados para usar depois em planilha dinamica

Question

Olá pessoas, Bom dia.

Estou com um pequeno problema envolvendo uma planilha de pouco mais de 68 mil linhas, coisa básica.

Essa é a planilha: <iframe src="http://r.office.microsoft.com/r/rlidExcelEmbed?su=-9035111120114048878&Fi=SD829CD64E6B6BA092!251&AllowInteractivity=False" width="402" height="346" frameborder="0" scrolling="no"></iframe>

As colunas em cinza é como eu preciso que a coisa fique para depois eu usar o Pivot Table para preparar meu relatório, o problema é que esse formato que o meu sistema exporta não está me ajudando a criar uma formula que preencha esses espaços em brancos depois do ID de conta.

Em um outro relatório, eu consegui contornor o mesmo tipo de problema usa =SE, mas a disposição das informações eram diferentes e isso já não está funcionando aqui, alguem sugestão de como posso resolver o problema?

Explicando melhor, no exemplo vocês conseguem ver o meu output do meu sistema e como eu preciso que fique, limpar linhas em branco não é problema, tarefa simples, o relatório contem mais informações, cada item tem um valor, e algun deles eu irei descartar, o que também não é um problema, a primeira linha de cada ID de Local também será descartada, tudo resolvido com filtragem, essa parte é super tranquila, só não consigui mesmo um jeito de colocar o ID de Conta em todas as linhas de Item para as mais de 68000 linhas da minha planilha para eu conseguir montar uma planilha pivot como a incluída lá?

Então essa é a minha pergunta, tem como fazer isso antes da virada do ano?

Agradeço pelo tempo dispensado na leitura e vizualização do meu exemplo.

Estevao

Answer 1

Pelo que entendi, seria algo como mostrado abaixo:

Sub MontaDados()
  
  Dim r As Long
  Dim ws As Worksheet
  Dim rLast As Long
  
  Set ws = ActiveSheet
  
  With ws
    rLast = .Cells(.Rows.Count, "A").End(xlUp).Row
    
    'Povoa coluna de ID
    For r = 2 To rLast
      If .Cells(r, "C") = vbNullString Then
        .Cells(r, "C") = .Cells(r, "C").Offset(-1)
      End If
    Next r
    
    'Apaga linhas em branco
    For r = rLast To 2 Step -1
      If WorksheetFunction.CountA(.Rows(r)) = 0 Then .Rows(r).Delete
    Next r
    
    'Talvez precise dessa linha
    .Rows(2).Delete
  
  End With
  
  
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br