EXCEL自定义函数​

合并函数

Public Function hebin(ll, ParamArray x())

    For Each r In x

        If IsArray(r) Then

            For Each rr In r

                If rr <> "" Then mystr = mystr & ll & rr

            Next

        Else

            mystr = mystr & ll & r

        End If

    Next

    mystr = Mid$(mystr, 2, Len(mystr))

End Function

'将时间戳（10或13位整数）转换成 yyyy-mm-dd hh:mm:ss 格式的日期
Public Function shijiancuo(timeStamp As Double, Optional beginDate = "01/01/1970 08:00:00")
　　If Len(CStr(timeStamp)) = 13 Then timeStamp = timeStamp / 1000
　　timeStamp2date = DateAdd("s", timeStamp, beginDate)
End Function