Preencha apenas as células vazias em uma coluna da tabela com valores incrementais

Question

Eu digo uma coluna A em uma tabela que tem algumas células emty como as seguintes:

AB345  
AC545

XY675  

VY987  


AC879

Eu quero preencher as células vazias com valores únicos, pegando uma expressão e incrementando-a em todas as células vazias, em um resultado como:

AB345    
XX1
AC545
XX2  
XY675  
XX3  
VY987  
XX4
XX5  
AC879  

Eu tentei selecionar as células vazias do cabeçalho da coluna da tabela, mas quando eu arrasto o mouse da primeira célula vazia, elas também sobrescrevem as não vazias com os valores incrementais.

Como posso conseguir isso?

    

Answer 1

Para A1 através de A100 , experimente esta macro curta:

Sub FillInTheBlanks()
    Dim rng As Range, r As Range
    Set rng = Range("A1:A100").Cells.SpecialCells(xlCellTypeBlanks)
    i = 1
    For Each r In rng
        r.Value = "XX" & i
        i = i + 1
    Next r
End Sub

Ajuste o 100 para atender às suas necessidades. Antes:

edepois: