[已解决]高手请帮忙

nancy66317

我是要在B2单元格中套入自定义公式，如果A2中有包含D例的区域名称就将其区域名称填 写出来


Function FuckCounta(店名 As Range) As String
Dim x%, n As Long
x = Application.WorksheetFunction.CountA(Columns("D"))
For n = 1 To x
If Application.WorksheetFunction.Find(cell(4, n), 店名) >= 1 Then 客户 = cell(4, n)
n = n + 1
Next
End Function
请帮我看一下这个编程，每次都说编译错误 子过程或函数未定义

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-5-25 14:10

1. Function FuckCounta(Rng As Range) As String
   
2. Dim arr
   
3. Dim i As Long
   
4. arr = Range("D2:D" & Range("D65536").End(xlUp).Row)
   
5. For i = 1 To UBound(arr, 1)
   
6. If InStr(Rng, arr(i, 1)) Then
   
7. FuckCounta = IIf(FuckCounta = "", arr(i, 1), FuckCounta & "," & arr(i, 1))
   
8. End If
   
9. Next i
   
10. End Function
    

复制代码

跳转到最佳答案楼层

搁浅2008

cell少加一个s 店名没定义 如果包含多个怎么显示

mxg825

Function FuckCounta(店名 As Range) As String
Dim x%, n As Long
x = Application.WorksheetFunction.CountA(Columns("D"))'这是不是07版以上才有的函数？
FuckCounta = “”
For n = 1 To x
If Application.WorksheetFunction.Find(cells(4, n), 店名) >= 1 Then
   FuckCounta = cells(4, n)
   Exit For
Next
End Function

搁浅2008

1. Function FuckCounta(Rng As Range) As String
   
2. Dim arr
   
3. Dim i As Long
   
4. arr = Range("D2:D" & Range("D65536").End(xlUp).Row)
   
5. For i = 1 To UBound(arr, 1)
   
6. If InStr(Rng, arr(i, 1)) Then
   
7. FuckCounta = IIf(FuckCounta = "", arr(i, 1), FuckCounta & "," & arr(i, 1))
   
8. End If
   
9. Next i
   
10. End Function
    

复制代码

nancy66317

回复 搁浅2008 的帖子

非常感谢，我没想到版主会亲自回复！！

nancy66317

再次感谢版主！！