原文出自于Accessoft麥田老师的《Excel将合并后的单元格分开后每行都保留第一个单元格内容的学习步骤》
http://www.accessoft.com/article-show.asp?id=18100
这里用了个自定义数组函数也可以达到这个目的,有兴趣的朋友可以下载示例学习一下。
附 件:
点击下载此附件
代 码:
Function 合并打散(myrange As Object) As Variant
Dim temp, temp2 As Variant
Dim i As Integer, j As Integer
temp = myrange.Value
l = myrange.Columns.Count
If IsArray(temp) Then
For i = 1 To UBound(temp, 1)
For j = 1 To l
temp(i, j) = temp(i, j)
If temp(i, j) = "" Then
temp(i, j) = temp(i - 1, j)
End If
Next j
Next i
Else
Exit Function
End If
合并打散 = temp
End Function
演 示: