EXCEL 自定义函数,并成字符串

Function ZDY() As String s = "" For i = Sheets("sheet1").Range("B65536").End(xlUp).Row To 1 Step -1 tmp = Sheets("SHEET1").Range("B" & i).Value If tmp "" Then s = s & "," & tmp Next ZDY = Right(s, Len(s) - 1)End Function将上面代码放到”模块“中，然后在C1单元格输入：=zdy() 即可。追答 : 说老实话，你B列产生的规则我还没搞懂，B11为什么不是0，而是空？追答 : Function ZDY(ByVal Target As Range) As String Dim T1 As Boolean, T2 As Boolean T1 = False: T2 = False ma = Range("A65536").End(xlUp).Row s = "" For i = ma To 1 Step -1 tmp = Range("A" & i) T1 = T2 T2 = IIf(IsNumeric(tmp), True, False) If T1 = False And T2 = False Then s = s & IIf(i = ma, "0", ",0") If T1 = False And T2 = True Then s = s & IIf(i = ma, "", ",") & tmp Next ZDY = s End Function