常用功能加载宏——定位空白单元格并设置等于上一个

在处理Excel表格的时候，偶尔会碰上这种需要，定位选中单元格区域内的空白单元格，然后让空白的单元格等于它上面的单元格，一般在Excel是这样操作的：

选中单元格区域
按F5，点击定位条件
选择空值，确定（这个时候，空白单元格就都被选中了）
输入“=”，这个时候注意观察是哪个活动单元格，鼠标左键点击活动单元格的上面一个单元格
按Ctrl+Enter结束

这样所有的空白单元格就都被设置公式为等于上面一个单元格了。

如果工作中经常会碰上这种操作，那么用VBA来做一个功能就比较方便了：

首先在customUI.xml中增加代码：

      <button id="rbbtnSetBlankRng" label="定位空白单元格" size="large" onAction="rbbtnSetBlankRng" supertip="定位空白单元格，设置等于其上面的单元格。" imageMso="ShowFrom" />

回调函数：

Sub rbbtnSetBlankRng(control As IRibbonControl)
    Call MRange.SetBlankRng
End Sub

函数实现：

Sub SetBlankRng()
    Dim rng As Range
    Dim rngSelect As Range
    
    If VBA.TypeName(Selection) <> "Range" Then
        MsgBox "请选择单元格。"
        Exit Sub
    End If
    Set rngSelect = Selection
    
    '找到空白单元格
    On Error Resume Next
    Set rng = rngSelect.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If rng Is Nothing Then Exit Sub
    '设置公式
    rng.FormulaR1C1 = "=R[-1]C"
End Sub

程序首先定位到空白单元格，然后设置它的公式属性即可。

这里使用的FormulaR1C1，R1C1这种形式是以行号和列号来定位单元格的，非常适合在VBA里设置单元格的公式。