多个结果合并到一个单元格 【 微积分+1】

nlee1987

我有数据两千多行，只能使用到100多，后续的显示就都是空白了。。。。。。

sookie0809

学习了，正好有用呢

n309951662

好LOW的教程

老头20100530

这个得试试，公式闪的太快，没有反应过来…

ok520

这功能强大Public 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
出来就是数组格式

dmynews

班级顺序的乱的，不连续在一起的怎么直接用公式？

luckyzhr

又学到了一招。

查無呲人

多个结果合并在一个单元格内  我们要记住这个关键

10307951261

留个脚印，学习