仅使用增量值填充表格列中的空单元格

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 以满足您的需要。之前：

之后：