zoukankan      html  css  js  c++  java
  • VBA 连接文本的自定义函数(可用于数组公式)

    Function ConTxt(ParamArray args() As Variant) As Variant
    Dim tmptext As Variant, i As Variant, cellv As Variant
    Dim cell As Range
    tmptext = ""

    For i = 0 To UBound(args)
        If Not IsMissing(args(i)) Then
            Select Case TypeName(args(i))
                Case "Range"
                    For Each cell In args(i)
                        tmptext = tmptext & cell
                    Next cell
                Case "Variant()"
                    For Each cellv In args(i)
                        tmptext = tmptext & cellv
                    Next cellv
                Case Else
                    tmptext = tmptext & args(i)
            End Select
        End If
    Next i

    ConTxt = tmptext
    End Function

  • 相关阅读:
    Async、Await
    CommandLineParser命令行解析类
    Dispose in c#
    授权oAuth
    Hadoop技术内幕1——源代码环境准备
    postgreSql——时区问题
    Linux命令3——c
    Linux命令2——b
    Linux命令1——a
    hadoop的Linux操作
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4784933.html
Copyright © 2011-2022 走看看