匹配问题求助，在线等

shyxue

两组数据A、B；关键字是包含与被包含的关系；
在B列中找到包含A列单元格的数据；
比如123；12345

[ 本帖最后由 shyxue 于 2009-3-31 18:58 编辑 ]

alzeng

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim irow%, rng As Range
   
4.     For Each rng In Range("G4:G" & [G65536].End(xlUp).Row)
   
5.         If Not Range("A4:A" & [A65536].End(xlUp).Row).Find(rng, lookat:=xlPart, MatchCase:=False) Is Nothing Then
   
6.             irow = Range("A4:A" & [A65536].End(xlUp).Row).Find(rng, lookat:=xlPart, MatchCase:=False).Row
   
7.             rng.Offset(0, 1) = Cells(irow, 2)
   
8.             rng.Offset(0, 2) = Cells(irow, 3)
   
9.             rng.Offset(0, 3) = Cells(irow, 4)
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

部分匹配.rar (9.51 KB, 下载次数: 5)

2009-3-31 16:13 上传

点击文件名下载附件

alzeng

可以将I列设成 yyyy-mm-dd hh:mm 格式。

shyxue

上次看到类似的问题，但不完全一样，不知道可否借鉴。