常用功能加载宏——定位空白单元格并设置等于上一个
常用功能加载宏——定位空白单元格并设置等于上一个
xyj
发布于 2020-07-28 06:19:24
发布于 2020-07-28 06:19:24
代码可运行
运行总次数：0
代码可运行
在处理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里设置单元格的公式。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2020-07-13，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
