Private Sub ComboBox1_Change()
If Not Range("B:B").Find(ComboBox1.Text) Is Nothing Then '判断是否找到
Range("D11").Value = Range("B:B").Find(ComboBox1.Text).Offset(0, -1).Text '找到就赋值找的的单元格左边一个单元格的值给D11
Else
Range("D11").Value = "" '没有找的就清空D11
End If
End Sub
不用写VBA代码就可以达到你的要求
组合框设置格式：数据源： $B$2:$B$9 单元格链接 ：$F$11 显示数默认8
D11公式： =INDEX(A:A,F11+1)&" "&INDEX(B:B,F11+1)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024