Sub 取消合并保留内容()For i = 2 To Range("B1").End(xlDown).Row单元格的值 = Range("C" & i).Value合并单元格的数量 = Range("C" & i).MergeArea.CountRange("C" & i).UnMergeRange("C" & i).Resize(合并单元格的数量, 1).Value = 单元格的值i = i + 合并单元格的数量 - 1Next
End Sub
Sub 取消合并保留内容()For i = 2 To Range("B1").End(xlDown).Row单元格的值 = Range("C" & i).Value合并单元格的数量 = Range("C" & i).MergeArea.CountRange("C" & i).UnMergeRange("C" & i).Resize(合并单元格的数量, 1).Value = 单元格的值i = i + 合并单元格的数量 - 1Next
End Sub