Colección de citas famosas - Slogan de motivación - Excel extrae todos los datos del último dígito de un carácter en una celda y usa VBA para implementarlo.
Excel extrae todos los datos del último dígito de un carácter en una celda y usa VBA para implementarlo.
Subtest()
Atenuar arr1() como cadena
Atenuar arr2() como cadena
Atenuar txt1, txt2, txt3 como cadena
p>
Para i = 1 al rango("A65536"). final (xlArriba). fila
Arr1 () = dividir (celdas (I, 1), "张三")
Si UBound(arr1)> entonces 0
Para un = 1 para subcargar(arr1)
0 = txt 1 amp Left(arr1(a), 1) amp ""
Siguiente a
It terminará si...
Arr2() = Split(Cells(i, 2), "Zhang San")
Si UBound(arr2)> entonces 0
Para b = 1 a UBound(arr2)
txt2 = txt2 ampLeft(arr2(b), 1) y amp" "
Siguiente b
Terminará si (txt3) - 1)
Celda (I, 3). valor = txt3
Terminará si...
txt1 = " "
txt2 = " "
txt3 = " "< / p>
Siguiente yo
Conector final