Programación Vba para realizar copias.
Sub-find()
Establecer xxx = Hoja1. Utilice el rango
Para t1 = 1 a xxx. Número de filas. Cuente
Para t2 = 1 a xxx. Número de columnas
Si xxx(t1, t2).Font.ColorIndex = 3, entonces
r = r 1
Hoja 2. celda(r,1). Cambiar tamaño(1,xxx.Columnas.Count) = xxx. fila(t1). Valor
Salir para...
Terminará si...
Entonces
Entonces
Fin apropiado
-
Según el suplemento, escriba el siguiente programa:
Sub findempty()
Set xxx = Sheet1. [A3:A10000]
Establecer yy = Hoja2. [A3]
Para cada xx en xxx
Si no está vacío (xx), entonces
yy. Desplazamiento(r,0) = xx
yy. Desplazamiento(r,1) = xx. offset(0, 3)
r = r 1
terminará si...
entonces
conector final
p>Este programa es casi el código más básico y mínimo de VBA. Es fácil de entender y modificar el rango de celdas.