Заполняйте только пустые ячейки в столбце таблицы инкрементными значениями

Question

Я сказал столбец A в таблице, в которой есть несколько пустых ячеек, например:

AB345  
AC545

XY675  

VY987  


AC879

Я хочу заполнить пустые ячейки уникальными значениями, взяв выражение и увеличивая его по всем пустым ячейкам, в результате, например:

AB345    
XX1
AC545
XX2  
XY675  
XX3  
VY987  
XX4
XX5  
AC879  

Я попытался выбрать пустые ячейки из заголовка столбца таблицы, но когда я перетаскиваю мышь из первой пустой ячейки, она также перезапишет непустые ячейки с инкрементными значениями.

Как мне этого добиться?

Answer 1

Для A1 - A100 попробуйте этот короткий макрос:

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

Отрегулируйте 100 в соответствии с вашими потребностями. До:

и после: