在EXECL中，如何将合并单元格解除后，自动将空格填充成同样的数据
发布网友
发布时间：2022-05-01 02:14
共1个回答
热心网友
时间：2023-10-09 02:03
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
