UC知道Excel 搜索返值
来源：百度知道 编辑：UC知道 时间：2024/05/31 03:05:17
A B
1 中国
2 美国
3 中国
4 美国
5 英国
6 德国
B列搞个下拉程序,当A1输入中国时,则在B列中搜索中国,如果B列没有中国,则B1=中国,当输入A2为美国时,则在B列中搜索美国,如果B列没有美国,则B2=美国,当A3输入中国时,则在B列中搜索中国,由于B1=中国了,则B3不返任何值 。总的原则就是，在A列中输入一个B列没有的词时，则在B列的下一个非空单元格返回这个值，如果有这个词，不返任何值。有点复杂，有不理由之处，请谅解，望高手解答。
1 中国
2 美国
3 中国
4 美国
5 英国
6 德国
B列搞个下拉程序,当A1输入中国时,则在B列中搜索中国,如果B列没有中国,则B1=中国,当输入A2为美国时,则在B列中搜索美国,如果B列没有美国,则B2=美国,当A3输入中国时,则在B列中搜索中国,由于B1=中国了,则B3不返任何值 。总的原则就是，在A列中输入一个B列没有的词时，则在B列的下一个非空单元格返回这个值，如果有这个词，不返任何值。有点复杂，有不理由之处，请谅解，望高手解答。
一，下拉程序是什么意思？
二，我觉得用VBA来做比较容易。
-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Dim x, y
x = Application.WorksheetFunction.CountIf([b:b], Cells(Target.Row, 1))
y = Application.WorksheetFunction.CountA([b:b])
If x = 0 Then
Cells(y + 1, 2) = Cells(Target.Row, 1)
End If
End If
End Sub