[已解决]求大神看看为什么自定义的函数总是返回#value

Ex_EP · 发表于 2014-11-23 10:40

本帖最后由 Ex_EP 于 2014-11-23 13:18 编辑

我这个代码用 sub 过程可以实现不知道为什么改成了 function 函数总是无法实现

要求是：1、表中的 A B C D 列为数据区域，F G 为条件区域 ,如果数据区域中的订单号和品名都一样则将 C D 列的数据汇总成一句话，显示在 H 列效果如 H 列所示

我的代码已经写好了就是不知道为什么总是返回#value 这样的错我请高手赐教

Function lianhua(danhao As Range, pinming As Range)
Dim c As Range, str$, q!
'查找订单号出现的首行和最后一行
With Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(danhao.Value, , xlValues, xlWhole, xlByColumns)
If Not c Is Nothing Then
firstaddress = c.Address
Do
lastaddress = c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And firstaddress <> c.Address
End If
End With
'如果查找不到相应的订单号，则进行相应的错误处理
If c Is Nothing Then q = q + 1: GoTo 100
'根据查找到的订单号，设置品名的查找区域
With Range("b" & (Range(firstaddress).Row - 1) & ":b" & Range(lastaddress).Row)
Set c = .Find(pinming.Value, , xlValues, xlWhole, xlByColumns)
'查找品名出现的首行和最后一行
If Not c Is Nothing Then
firstaddress1 = c.Address
Do
lastaddress1 = c.Address
Set c = .FindNext(c)
If c.Row = Range(firstaddress).Row - 1 Then Exit Do
Loop While Not c Is Nothing And firstaddress1 <> c.Address
End If
End With
'如果查找不到品名，则进行相应的错误处理
If c Is Nothing Then q = q + 1: GoTo 100
'根据查找到的品名的首行和最后一行，设置相应的废板数和质量说明区域
a = Range("c" & Range(firstaddress1).Row & ":d" & Range(lastaddress1).Row).Value
'采用循环的方式将废板数量和质量说明汇总成一句话
For i = 1 To UBound(a)
str = str & a(i, 1) & a(i, 2) & "片,"
Next i
'查找不到订单号或者品名时进行的错误处理
If q <> 0 Then
100:
lianhua = ""
End
Else
lianhua = Left(str, Len(str) - 1)
End If
End Function