我想根据左边的做到右边的有木有什么公式之类的!
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/26 04:33:48
![我想根据左边的做到右边的有木有什么公式之类的!](/uploads/image/z/5921746-34-6.jpg?t=%E6%88%91%E6%83%B3%E6%A0%B9%E6%8D%AE%E5%B7%A6%E8%BE%B9%E7%9A%84%E5%81%9A%E5%88%B0%E5%8F%B3%E8%BE%B9%E7%9A%84%E6%9C%89%E6%9C%A8%E6%9C%89%E4%BB%80%E4%B9%88%E5%85%AC%E5%BC%8F%E4%B9%8B%E7%B1%BB%E7%9A%84%21)
我想根据左边的做到右边的有木有什么公式之类的!
我想根据左边的做到右边的有木有什么公式之类的!
我想根据左边的做到右边的有木有什么公式之类的!
已经出结果
1.D1输入公式按三键结束CTRL+SHIFT+ENTER
=INDEX(A:A,SMALL(IF(MATCH(A$1:A$100&"",A$1:A$100&"",)=ROW($1:$100),ROW($1:$100),4^8),ROW(A1)))&""
2.E1单元格用VB代码实现
在表格打开状态按ALT+F11,插入----模块,复制以下代码进去(横线范围内的),在关掉代码窗口.
---------------------------------------------------------------------------------------------
Function abc(a As Range,b As Range,c As String)
Dim t As String
'如果a与b的区域大小不同,就显示“错误”
If a.Rows.Count <> b.Rows.Count Then abc = "错误":Exit Function
'在区域a是循环
For i = 1 To a.Rows.Count
'如果在a中找到与c相同的值,就把同一行中的b的内容提取出来,存入变量t中.
If a.Cells(i,1) = c Then t = t & " " & b.Cells(i,1)
Next
'将变量的值赋给自定义函数
abc = t
End Function
--------------------------------------------------------------------------------------------
E1单元格=abc($A$1:$A$9,$B$1:$B$9,D1)
备注:序号1内空是根据网友提供,只是修改了单元格区域,原连接
序号2是根据网友的(chaohua008)百度经验来完成的,原连接