合并单元格中多条件VLOOKUP查找(有VBA)

agtew0

不光需要函数，还需要些代码~~有高手帮助吗？

笑着...两年过去

1. Sub s()
   
2.     For i = 2 To [b1].End(4).Row
   
3.         j = Application.Match(Cells(i, 2), Sheet2.[b:b], 0)
   
4.         l = 0: n = ""
   
5.         For l = 0 To 99
   
6.            If Sheet2.Cells(j + l, 2) <> "" And Sheet2.Cells(j + l, 2) <> Cells(i, 2) Then Exit For
   
7.            If Sheet2.Cells(j + l, 4) = "达标品" Then n = n & " " & Sheet2.Cells(j + l, 3)
   
8.         Next: Cells(i, 4) = Mid(n, 2, 99)
   
9.     Next
   
10. End Sub

复制代码

agtew0

笑着...两年过去 发表于 2015-11-17 16:21

函数公式如何写？高手帮忙啊~

笑着...两年过去

agtew0 发表于 2015-11-17 16:55
函数公式如何写？高手帮忙啊~

函数公式没法写，一旦数据量大一条公式根本就完不成
除非用辅助列

笑着...两年过去

非要函数的话，看看这个帖子吧
http://club.excelhome.net/forum. ... 624&pid=7114401

agtew0

笑着...两年过去 发表于 2015-11-17 16:59
非要函数的话，看看这个帖子吧
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=23 ...

这个例子，是我在EXCELhome微信群里找到的，但是我在这基础上需要个改进。原文是这样的意思，满足某对应2列的条件，即刷选出来，并且以空格作为界别！引用了contxt的函数和VBA代码！我将代码发下。其实我这已经想办法刷选了，但是只出来一个，不是将符合条件的都刷出来。

Public Function Contxt(ParamArray args() As Variant) As Variant
Dim tmptext As Variant, i As Variant, Cellv As Variant
Dim Cell As Range
tmptext = ""
For i = 0 To UBound(args)
    If Not IsMissing(args(i)) Then
        Select Case TypeName(args(i))
            Case "Range"
                For Each Cell In args(i)
                    tmptext = tmptext & Cell
                Next Cell
            Case "Variant()"
                For Each Cellv In args(i)
                    tmptext = tmptext & Cellv
                Next Cellv
            Case Else
                tmptext = tmptext & args(i)
        End Select
    End If
Next i
Contxt = tmptext
End Function

笑着...两年过去

agtew0 发表于 2015-11-18 07:53
这个例子，是我在EXCELhome微信群里找到的，但是我在这基础上需要个改进。原文是这样的意思，满足某对应2 ...

这不还是VBA么，而且还是自定义的一个函数，还不如直接用代码得出结果

agtew0

笑着...两年过去 发表于 2015-11-18 08:29
这不还是VBA么，而且还是自定义的一个函数，还不如直接用代码得出结果

不知道如何操作，这个问题，已经困扰我起码2个月了~~人家说函数达不到效果，必须用代码！ 我添的是之前的代码，不明白什么意思~你写的代码，我不知道如何用啊~

笑着...两年过去

合并单元格中多条件VLOOKUP查找.zip (12.66 KB, 下载次数: 85)

2015-11-18 19:01 上传

点击文件名下载附件

agtew0

笑着...两年过去 发表于 2015-11-18 19:01

非常感谢！我得去消化，同时，还可能得麻烦你。