VBA 字符串相加替换

VBA
字符串相加替换，可以这样：
【1】可以使用以下代码：
Sub
test()
Dim
A,
B
As
String
A
=
"0010"
B
=
"1010"
C
=
FC(A,
B)
End
Sub
Function
FC(str1,
str2)
As
String
If
Len(str1)
=
Len(str2)
Then
For
i
=
1
To
Len(str1)
s2
=
Mid(str2,
i,
1)
If
<a
href=
target="_blank"
class="baidu-highlight">s1</a>
=
s2
Then
FC
=
FC
&
<a
href=target="_blank"
class="baidu-highlight">s1</a>
Else
FC
=
FC
&
"1"
End
If
Next
End
If
End
Function
【2】CELLS(3,3)=
CELLS(1,1)
&
CELLS(2,2)
【3】Sub
test()
Dim
sr$,
arr,
<a
href=
target="_blank"
class="baidu-highlight">sr1</a>$,
sr2$
sr
=
[F65536].<a
href=
target="_blank"
class="baidu-highlight">End</a>(3).Value
arr
=
Split(sr,
"\")
For
i
=
0
To
UBound(arr)
If
arr(i)
=
0
Then
arr(i)
=
10
sr2
=
<a
href=
target="_blank"
class="baidu-highlight">Abs</a>(arr(i)
-
[b65536].<a
href=
target="_blank"
class="baidu-highlight">End</a>(3).Value)
If
sr2
=
10
Then
sr2
=
0
<a
href=
target="_blank"
class="baidu-highlight">sr1</a>
=
<a
href=
target="_blank"
class="baidu-highlight">sr1</a>
&
sr2
&
"\"
<a
href=target="_blank"
class="baidu-highlight">Next</a>
[F65536].<a
href=
target="_blank"
class="baidu-highlight">End</a>(3).Offset(1,
0)
=
<a
href=
target="_blank"
class="baidu-highlight">Left</a>(sr1,
Len(sr1)
-
1)
End
Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fxy7xrffvy7rrxe773.html