Colección de citas famosas - Mensajes de felicitación - Dos preguntas EXCEL... por favor dígame... ¿cómo realizar el llenado inverso? ..

Dos preguntas EXCEL... por favor dígame... ¿cómo realizar el llenado inverso? ..

Después de guardar los archivos que no desea cancelar, ciérrelos. Deshaga otro y luego abra el archivo cerrado.

La segunda pregunta es VBA.

Sub addStr()

C = InputBox("Ingrese el número de columna a operar: A=1, B=2, C=3... ")

R = InputBox("Ingrese el número de línea inicial:")

c = Val(c)

r = Val(r)

Para i = r a 1000000 '

Si la última columna tiene datos.

Si cell(I,c 1) lt;gt""Entonces

Si el contenido de esta columna está vacío.

Si la celda(I,c) = ", entonces

se llena con contenido ascendente.

Celda(I,c) = antigua

Otro

De lo contrario, cambie el valor de old y vaya a la siguiente fila

old=cell(I,c)

Si... entonces terminará

Otros

Fin' Si no hay datos en la columna derecha, dejará de ejecutarse

Terminará si...

Luego

p>

Conector final