如何通过VBA自动填充撤销合并后的空单元格

在日常的Excel操作中，我们经常会遇到将已经合并的列再拆开，但数据只能填充该合并列的首列，其余空列都没有数据的情况。为了让拆分后的空列值与有数据的首列数据保持一致，我们可以借助VBA程序来实现这个目标。但需要注意的是，程序执行时会终止在最后一个有数据的行，为了避免在最后一个数据以下的空列有值，我们可以在最后一个空列下方输入一个非空值，在程序运行完成后再删除这个值即可。

步骤一：准备工作

首先，打开Excel表格，并按照指导图片中的例式进行输入。需要说明的是，该程序不仅适用于少量行的操作，单列65535行的全合并行也能够快速完成。

步骤二：编写VBA代码

接下来，打开VBA编辑器，在代码窗口中输入以下内容：

```vba

Sub FillEmptyCells()

Dim lastRow As Long

Dim ws As Worksheet

Set ws ("Sheet1") ' 修改为目标工作表名称

lastRow ws.Cells(, "A").End(xlUp).Row

For i 2 To lastRow

If ws.Cells(i, 2) <> "" Then

ws.Cells(i, 2).Offset(0, 1).Value ws.Cells(i, 2).Value

End If

Next i

End Sub

```

然后回到Excel界面，单击要执行目标列（比如B2），接着执行上述宏。

步骤三：查看效果

执行完宏之后，你会发现空列中的数值已经被自动填充为与首列相同的数值。这样就能够很方便地处理合并列拆分后空列数值的填充了。

通过以上简单的步骤，我们可以利用VBA程序轻松解决撤销合并后空单元格数值填充的问题，提高工作效率，让Excel操作更加便捷快速。希望这篇文章对你有所帮助！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。