Function g(ra As Range, rb As Range)
Dim m, n, str
m = Split(ra, "/")
n = Split(rb, "/")
str = ""
If UBound(m) > 0 And (UBound(n) = UBound(m)) Then
For i = 0 To UBound(m)
str = str + m(i) + "*" + n(i)
If i < UBound(m) Then str = str + "+"
Next
End If
g = str
End Function
uj5u.com熱心網友回復:
非常感謝您的幫助!!!
uj5u.com熱心網友回復:
rept可能有?但concat是沒有。
rept有,concat沒有。有啥替代方案嗎?謝謝!
公式實在想不到方法了.哈哈,用自定義函式吧.
Function g(ra As Range, rb As Range)
Dim m, n, str
m = Split(ra, "/")
n = Split(rb, "/")
str = ""
If UBound(m) > 0 And (UBound(n) = UBound(m)) Then
For i = 0 To UBound(m)
str = str + m(i) + "*" + n(i)
If i < UBound(m) Then str = str + "+"
Next
End If
g = str