1、首先打开一份excel表格,点击“开发工具”→“Visual Basic”进入编程界面。

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

3、将下面代码复制粘贴到代码界面中。Sub 取消合并单元格并填充空白单元格() Dim rng As Range Set rng = S髫潋啜缅election.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

5、点击“开发工具”→“宏”,选择“取消合并单元格并填充空白单元格”的宏,然后点击“运行”。
