求两个字符串相减的结果

zhangstone · 发表于 2023-1-4 12:10

各位高手：

你们好！
我想求两个字符串相减的结果，请相见附件！

liulang0808 · 发表于 2023-1-4 12:15

Sub 按钮1_Click()
arr = [a1].CurrentRegion
For j = 2 To UBound(arr)
      brr = Split("," & arr(j, 1), ",")
      crr = Split("," & arr(j, 2), ",")
      str1 = ""
      For i = 1 To UBound(brr)
         For k = 1 To UBound(crr)
            str1 = str1 & "," & Abs(Val(brr(i)) - Val(crr(k)))
         Next k
      Next i
      arr(j, 4) = Mid(str1, 2)
Next j
[a1].CurrentRegion = arr
End Sub

liulang0808 · 发表于 2023-1-4 12:16

供参考。。。。。。。。

zhangstone · 发表于 2023-1-4 12:21

liulang0808大侠：
非常感谢您的屡次帮忙！能否做一个自定义函数？这个按钮的不好用

ykcbf1100 · 发表于 2023-1-4 12:37

请参考。

剑指E · 发表于 2023-1-4 12:41

zhangstone · 发表于 2023-1-4 12:43

剑指E：
非常感谢您的帮忙！这就是我想要的结果！

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

[求助] 求两个字符串相减的结果