VBA小程序_对于选中的单元格进行取消合并_选择空值向上填充

最新推荐文章于 2024-05-04 09:45:48 发布

STR_Liang

最新推荐文章于 2024-05-04 09:45:48 发布

阅读量1.6k

点赞数 2

分类专栏： VBA

本文链接：https://blog.csdn.net/STR_Liang/article/details/106196495

版权

VBA 专栏收录该内容

62 篇文章 26 订阅

订阅专栏

Sub VBA小程序_对于选中的单元格进行取消合并_选择空值向上填充()
    Dim a As Range
    Set a = Selection   '定义变量为最初选择的区域，不忘初心
    Selection.UnMerge   '取消合并
    Selection.SpecialCells(xlCellTypeBlanks).Select '选择空值
    Selection.FormulaR1C1 = "=R[-1]C"   '=上面的值
    a.Copy  '原则最开始的区域
    a.PasteSpecial Paste:=xlPasteValues '选择性粘贴为数值
    Application.CutCopyMode = False '清除剪贴板内容
End Sub