Excel制作的《合并打散》源码示例分享，合并打散自定义数组函数学习示例

时　间:2021-06-10 16:04:47
作　者:欢乐小爪   ID：20149  城市：杭州
摘　要:Excel制作的《合并打散》源码示例分享。
正　文:

      原文出自于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

演   示: