Question

eXcel中的∨ba？

假如在一个多行多列的单元格区域内，现找出每列相同的单元格内容。也就是说是所有列的交集
2 3 8 4 3 0 6 5 2
0 4 1 6 5 0 9 3 1
3 6 5 6 1 9 0 4 7
1 8 4 2 4 6 8 1 4
4 4 2 8 0 8 2 5 3
8 2 4 3 8 4 4 8 8
共同的交集为：
4
8
请问用∨ba怎么写？谢谢您了！

Answer 1

样本数据工作表：

程序代码和运行结果：

程序算法见注释，程序文本如下：

Option Explicit

Sub 取是所有列的交集()

    Dim arr, i1, i2, j, k

    arr = Range("a1").CurrentRegion

    '对第一列所有元素进行判断：如果在后面的某一列中不存在，就设置为空

    For i1 = 1 To UBound(arr)

        If arr(i1, 1) <> "" Then

        For j = 2 To UBound(arr, 2)

            k = 0

            For i2 = 1 To UBound(arr)

                If arr(i1, 1) = arr(i2, j) Then

                    k = 1

                    Exit For

                End If

            Next i2

            If k = 0 Then

                arr(i1, 1) = ""

                Exit For

            End If

        Next j

        End If

    Next i1

    '现在第一列的非空元素就是结果，下面输出

    For i1 = 1 To UBound(arr)

        If arr(i1, 1) <> "" Then Debug.Print arr(i1, 1)

    Next i1

End Sub

追问

假如单元格区间不从a1开始怎么办？怎么能判断有多少行多少列？

追答

从哪里开始就习惯程序里面的a1，现在程序的算法是从指定单元格的四周开始扩散，直到遇到空白为止，只要不把无关数据连在一起就成。

Answer 2

先来看一下CONCATENATE函数的语法：CONCATENATE (text1,text2,...)，其中的参数text1,2是指我们要连接的字符串。这个函数的作用就是将两个或者两个以上的字符串连成一个字符串。将hello 和world 两个字单词连接成hello world，那么我们就可以使用CONCATENATE函数，CONCATENATE("hello","world")。如果想在hello和world之间加空格，只需要 改写表达式为CONCATENATE("hello",“   ”，"world")就可以了。下面举一个实例详细说CONCATENATE函数的使用。需要在学生成绩表中得到：同学的语文成绩是，数学成绩是，总成绩是，然后将这些信息填写到总结中。使用CONCATENATE函数来完成。=CONCATENATE(A2,"同学的语文成绩是",B2,",","数学成绩是",C2,",","总成绩是",SUM(B2,C2))。函数执行以后就得到了，想要的结果：同学的语文成绩是，数学成绩是，总成绩是。在这个函数中可以看到对单元格的引用，以及sum函数返回的结果都将作为字符串来处理。

Answer 3

先假设第一列为交集，然后用第二列开始比较，不存在剔除。