假定sheet2 a列是姓名,b列至f列显示要该姓名对应的所有电话号码
在sheet2表的b2单元格输入:
=index(sheet1!$b:$b,small(if(sheet1!$a$2:$a$9999=$a2,row($2:$9999),4^8),column(a1)))&""
数组公式,同时按ctrl+shift+enter三键结束,下拉右拉
在表二插入一命令按钮,并对其Click事件编程:
Private Sub CommandButton1_Click()
Dim rag As Range
Range("A2:A65536").ClearContents
i = 2
For Each rag In Worksheets("表一").Range("A:A")
If rag = "" Then Exit For
If rag = Range("A1") Then
Range("A" & i) = rag.Offset(, 1)
i = i + 1
End If
Next
End Sub
假定在表二的A1输入姓名,则他在表一的电话号码将显示在A列自A2起的单元格。
用Vlook函数