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... ") p >
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... p>
Luego
p>Conector final