Cadenas VBA y reemplazo
La adición y reemplazo de cadenas se puede completar así:
1 Puedes usar el siguiente código:
Sub
prueba()
Atenuar
A,
B
Como
cadena
A p>
=
"0010"
B
=
"1010"
C
=
FC(A,
B)
Fin
Sub p>
Función
FC(str1,
str2)
Como
Cadena
Si
Len(str1)
=
Len(str2)
Entonces
Para
i
=
1
A
Len(str1)
s2
=
Medio(str2,
i,
1)
Si
lt ; un
p>href=
target="_blank"
class="baidu-highlight"gt;s1lt;/agt;
lt;
=
s2
Entonces
FC
=
FC
amp;
lt;a
href=target="_blank"
class=" baidu-highlight"gt; s1lt;/agt;
CELDAS(2,2)
3Sub
prueba()
Dim
sr$,
arr,
lt;p>
href=
target="_blank"
class="baidu-highlight"gt;sr1lt;/agt;$,
sr2$
sr
= p>
[ F65536].lt; a
href=
target="_blank"
class="baidu-highlight"gt; ;/agt; (3 ).Valor
arr
=
Dividir(sr,
"\")
Para
i
=
Para
UBound(arr)
Si p>
arr (i)
=
Entonces
arr (i)
=
10
sr2
=
lt;a
href=
target="_blank"
class="baidu-highlight"gt;Abslt;/agt;(arr(i)
-
[b65536].lt;a
href=
target="_blank"
class="b
Aidu-highlight"gt;Endlt;/agt;(3).Value)
if
sr2
=
10
Entonces
sr2
=
lt;a
href=
objetivo ="_blank"
class="baidu-highlight"gt;sr1lt;/agt;
=
lt;a
href=
target="_blank"
class="baidu-highlight"gt;sr1lt;/agt;
amp;
sr2
amp;
"
lt;a
href=target="_blank"
class="baidu-highlight"gt;Nextlt;/agt;
[F65536].lt;a
href=
target="_blank"
class="baidu-highlight"gt;Endlt;/agt;(3).Offset(1,
0)
=
lt;a
href=
target="_blank"
class="baidu-highlight"gt;Leftlt;/agt;(sr1,
Len(sr1)
-
1)
Fin
Sub