多个数据加顿号 的 减法

cirione

通过C3,B3求出E3，数字之间得有顿号，还有就是结果之前加引号 不然会显示错误，这个怎么搞？

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, t
  arr = Range("b2:c" & Cells(Rows.Count, "c").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For i = 1 To UBound(arr, 1)
    If InStr(arr(i, 2), "、") Then
      t = Split(arr(i, 2), "、")
      For j = 0 To UBound(t): t(j) = Val(t(j)) - arr(i, 1): Next
      brr(i, 1) = Join(t, "、")
    End If
  Next
  [e2].Resize(UBound(brr, 1)) = brr
End Sub

LMY123

保护层厚度计算

excelvlookup

function aa(x,y)
if instr(y,"、") then s=split(y,"、") else r=y
for i=0 to ubound(s)
r=s(i)*1
t=t&r-x&"、"
next
aa=mid(t,1,len(t)-1)
end function
用法和公式一样的