请老师指正 自定义函数在什么地方出错

cui26896

这也一个求助帖中出现的问题。如图，按第三行由大到小对应第二行的数字构造一个字符串。写代码完全可以通过，但写成自定义函数，却不执行，不知道自己所写的代码在什么地方出了错误，请老师们指正。


自定义公式.zip (16.66 KB, 下载次数: 3)

2020-2-5 17:10 上传

点击文件名下载附件

kkf5560

常规格式即可

lsdongjh

1. Function pxs(mrg As Range) As Variant
   
2.   Dim arr, brr, i%, str
   
3.     arr = mrg
   
4.   Call qsort(arr, 1, UBound(arr, 2), 1, 2, 2)
   
5.   brr = Application.WorksheetFunction.Index(arr, 1, 0)
   
6. '  ReDim brr(1 To UBound(arr, 2))
   
7. '  For i = 1 To UBound(brr)
   
8. '    brr(i) = arr(1, i)
   
9. '    str = str & brr(i)
   
10. '  Next
    
11.   pxs = Join(brr, "")
    
12. End Function

复制代码

cui26896

kkf5560 发表于 2020-2-5 17:15
常规格式即可

请问老师什么常规格式，具体是哪个地方？

cui26896

去了变量定义，还是不动啊！

kkf5560

cui26896 发表于 2020-2-5 17:23
请问老师什么常规格式，具体是哪个地方？

单元格格式,你输入的地方是文本格式,改常规

cui26896

kkf5560 发表于 2020-2-5 17:31
单元格格式,你输入的地方是文本格式,改常规

谢谢老师，一语明了！！看似最简单的问题，但是就是隔着一张纸！！！