Excel单元格取消合并后怎么自动填充空白单元格

在excel中,归并单位格打消归并后,会有良多空白单位格,若是要把这些空白单位格填充为归并单位格时的内容,需要怎么操作呢,网上有一些定位空值,在输入公式的方式,我就不再反复这种方式了,今天和大师分享下经由过程VBA主动化填充的方式。

工具/原料

  • Office excel 2010以上版本

方式/步骤

  1. 1

    首先打开一份excel表格,点击“开辟东西”→“Visual Basic”进入编程界面。

  2. 2

    右键选中当前工作簿名字,在右键菜单中选择“插入”→“模块”。

  3. 3

    将下面代码复制粘贴到代码界面中。

    Sub 打消归并单位格并填充空白单位格()

        Dim rng As Range

        

        Set rng = Selection.Cells

        

        arr = rng.Value

        

        rng.UnMerge

        

        For i = 1 To UBound(arr, 1)

        

            If arr(i, 1) = "" Then

            

                arr(i, 1) = arr(i - 1, 1)

                

            End If

            

        Next

        

        rng.Value = arr

        

    End Sub

  4. 4

    保留后,返回excel本家儿界面。选中要打消归并单位格并主动填充空白单位格的区域。

  5. 5

    点击“开辟东西”→“宏”,选择“打消归并单位格并填充空白单位格”的宏,然后点击“运行”。

  6. 6

    可以看到,归并单位格被打消归并了,而且空白单位格都被填充为归并单位格时的内容,结果如图:

  • 发表于 2018-04-03 00:00
  • 阅读 ( 394 )
  • 分类:其他类型

相关问题

0 条评论

请先 登录 后评论