在EXECL中，如何将合并单元格解除后，自动将空格填充成同样的数据

来源：百度知道 编辑：UC知道 时间：2024/05/31 04:05:15
例如：a1到a4合并单元格，其中数据为“北京”，在取消a1到a4的合并单元格后，让a1到a4每个单元格中都显示“北京”。

这个只能通过VBA来操作了
Y=1'合并单元格所在的列
For X = 1 To ActiveSheet.UsedRange.Rows.Count
A = Cells(X, Y).Value
cnt = Cells(X, Y).MergeArea.Count
Range(Cells(X, Y), Cells(X + cnt - 1, Y)).Select
Cells(X, Y).UnMerge
Range(Cells(X, Y), Cells(X + cnt - 1, Y)).Value = A
X = X + cnt - 1
Next