[已解决]求高手帮我写个查找函数，事例在附件里

yty773436272

新建 Microsoft Excel 工作表.rar (3.83 KB, 下载次数: 44)

2012-4-24 13:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-4-25 12:24

看看附件吧，用的自定义函数，工作表函数不适合处理文本合并类的问题。

跳转到最佳答案楼层

wujixin128

没看懂你的意思。

yty773436272

wujixin128 发表于 2012-4-24 13:22
没看懂你的意思。

就是根据2012年招标价格在前面进行查找，如2012年招标价格是300，那在前面单元格里查找，显示对应的上面的标题

fjmxwrs

wujixin128 发表于 2012-4-24 13:22
没看懂你的意思。

楼主的意思是找到当年价格如300的在那几个单位中找出一样价格的，把单位名称写到一起。

A1090A

应该是这个意思，查找300，在单元格中显示与300匹配的东东(在1个单元格)

A1090A

LZ，与2012年招标价格"300"所匹配的应该是单位1、单位3、单位4，但你的附件显示好像不对哟

liuguansky

看看附件吧，用的自定义函数，工作表函数不适合处理文本合并类的问题。

周义坤

1. Sub 中标()
   
2. Dim array1, i&, j&, array2()
   
3. array1 = Range("E2:k" & Cells(Rows.Count, 1).End(3).Row)
   
4. ReDim array2(1 To UBound(array1), 1 To 1)
   
5. For i = 2 To UBound(array1)
   
6.     For j = 1 To UBound(array1, 2) - 1
   
7.     If array1(i, 6) <> "" Then
   
8.     If array1(i, j) = array1(i, 6) Then
   
9.     array2(i - 1, 1) = array2(i - 1, 1) & " " & array1(1, j)
   
10.     End If
    
11.     End If
    
12.     Next j
    
13. Next i
    
14. Range("L3").Resize(UBound(array1)).ClearContents
    
15. Range("L3").Resize(UBound(array1)) = array2
    
16. End Sub
    

复制代码

新建 Microsoft Excel 工作表.zip (7.31 KB, 下载次数: 1)

2012-4-25 12:47 上传

点击文件名下载附件

yty773436272

周义坤 发表于 2012-4-25 12:48

朋友，在L单位格能不能不显示最低价格标题

周义坤

1. Sub 中标()
   
2. Dim array1, i&, j&, array2()
   
3. array1 = Range("E2:k" & Cells(Rows.Count, 1).End(3).Row)
   
4. ReDim array2(1 To UBound(array1), 1 To 1)
   
5. For i = 2 To UBound(array1)
   
6.     For j = 1 To UBound(array1, 2) - 2
   
7.     If array1(i, 6) <> "" Then
   
8.     If array1(i, j) = array1(i, 6) Then
   
9.     array2(i - 1, 1) = array2(i - 1, 1) & " " & array1(1, j)
   
10.     End If
    
11.     End If
    
12.     Next j
    
13. Next i
    
14. Range("L3").Resize(UBound(array1)).ClearContents
    
15. Range("L3").Resize(UBound(array1)) = array2
    
16. End Sub

复制代码