谁能给我写个公式，自定义函数也行

slwily321 · 发表于 2018-2-28 12:37

file:///

丢丢表格 · 发表于 2018-2-28 12:55

本帖最后由丢丢表格于 2018-2-28 13:05 编辑

G3=SUBSTITUTE(SUBSTITUTE(TEXT(SUMPRODUCT(B3:F3*{10000,2000,300,40,5}),"[DBNum1]0、0、0、0、0"),"、〇",),"〇、",)

还是用直并的好
G3=MID(IF(B3,"、一",)&IF(C3,"、二",)&IF(D3,"、三",)&IF(E3,"、四",)&IF(F3,"、五",),2,9)

活在理想的世界 · 发表于 2018-2-28 12:56

Function D(RNG As Range, RNG1 As Range, STR As String)
Dim arr(), brr(), crr()
arr = RNG: brr = RNG1
For i = 1 To UBound(arr, 2)
If brr(1, i) <> "" Then
j = j + 1: ReDim Preserve crr(1 To j): crr(j) = arr(1, i)
End If
Next
D = Join(crr, STR)
End Function

复制代码

活在理想的世界 · 发表于 2018-2-28 12:58

111111111111111111111111111111111111111

slwily321 · 发表于 2018-2-28 13:02

活在理想的世界发表于 2018-2-28 12:56

谢谢，太给力了

		自动登录	找回密码
密码			免费注册

[已解决] 谁能给我写个公式，自定义函数也行