编译错误：参数不可选？

缘来修

我有一个如下自定义函数，但是引用的时候出现“编译错误：参数不可选？”

求助！！！


Function findcc(a As Range, b As Range, c As Range, a1 As String, b1 As String)
Dim t As String
'如果a与b的区域大小不同，就显示“错误”
If a.Rows.Count <> b.Rows.Count Or a.Rows.Count <> c.Rows.Count Then abc = "错误": Exit Function
'在区域a是循环
For i = 1 To a.Rows.Count
'如果在a中找到与c相同的值，就把同一行中的b的内容提取出来，存入变量t中。
If a.Cells(i, 1) = a1 And b.Cells(i, 1) = b1 Then t = t & " " & c.Cells(i, 1)
Next
'将变量的值赋给自定义函数
abc = t
End Function

wj2368

Function findcc(a As Range, b As Range, c As Range, a1 As String, b1 As String)
Dim t As String
'如果a与b的区域大小不同，就显示“错误”
If a.Rows.Count <> b.Rows.Count Or a.Rows.Count <> c.Rows.Count Then findcc ="错误" : Exit Function
'在区域a是循环
For i = 1 To a.Rows.Count
'如果在a中找到与c相同的值，就把同一行中的b的内容提取出来，存入变量t中。
If a.Cells(i, 1) = a1 And b.Cells(i, 1) = b1 Then t = t & " " & c.Cells(i, 1)
Next
'将变量的值赋给自定义函数
findcc = t
End Function

缘来修

谢谢！谢谢！原来如此。