如何区域内查找数据并返回给定值

ZJF207

第一行的数据为空，
ABC三列的数据，如下
从A2：A10数据分别1 -10，
B2：B10数据为2-20，
C3：C10列的数据为3-30
如何给定一个数，找出该数在哪列.
如在D1中录入一个数据5，则在E1中查找出结果列示A列
如在D1中录入一个数据15，则在E1中查找出结果列示B列

microyip

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim iData As Integer
   
3.     Dim rSearch As Range
   
4.     Dim rRNG As Range
   
5.     Dim vAddress As Variant
   
6.     Dim sAddress As String
   
7.     Dim sStr As String
   
8.    
   
9.     iData = Application.WorksheetFunction.Max([A65536].End(xlUp).Row, [B65536].End(xlUp).Row, [C65536].End(xlUp).Row)
   
10.     Application.EnableEvents = False
    
11.     [E1].ClearContents
    
12.     'Application.EnableEvents = True
    
13.     With Range("A2:C" & iData)
    
14.         If Target <> "" Then
    
15.             Set rSearch = .Find(what:=Target, lookat:=xlWhole)
    
16.             Do While Not rSearch Is Nothing
    
17.                 Set rRNG = rSearch
    
18.                 vAddress = Split(rRNG.Address, "$")
    
19.                 sAddress = vAddress(1) & vAddress(2)
    
20.                 If sStr Like "*" & sAddress & "*" Then Exit Do
    
21.                 sStr = sStr & IIf(sStr = "", "", "，") & sAddress
    
22.                 Set rSearch = .Find(what:=Target, after:=rRNG, lookat:=xlWhole)
    
23.             Loop
    
24.         End If
    
25.     End With
    
26.     If sStr <> "" Then [E1] = sStr
    
27.     Application.EnableEvents = True
    
28. End Sub

复制代码

microyip

附上附件以供参考

A0101

路过，学习了

jiminyanyan

厉害，附件都没有，就写出来了。。。