Selección de la lista de programación Vba
¡El principal problema radica en el requisito de que "estos tres números pueden estar en líneas diferentes"!
El siguiente es el proceso de VBA que escribí. Compruébelo usted mismo ~ ~
Sub JSabc()
Este proceso de cálculo lo proporciona el usuario de Baidu Changshan Dabao.
Copia el proceso a la ventana de código VBA correspondiente a la hoja de trabajo.
Ejecute este proceso directamente en la ventana del código VBA para obtener los datos que necesita el cartel.
Los números de fila de la primera y última fila en el rango real de la celda de la columna "A" reemplazan el rango circular de I 1 y 13 respectivamente.
Para I = 1 a 13
Los números de fila de la primera y última fila en el rango real de la celda de la columna 'B' reemplazan el rango circular de J 1 y 13 respectivamente.
Para J = 1 a 13
Los números de fila de la primera y última fila en el rango real de la celda de la columna "c" reemplazan el rango circular de k 1 y 13 respectivamente .
Para K = 1 a 13
Reemplace las columnas A, B y C a continuación con los números de columna realmente involucrados en el cálculo.
Si la condición satisface A B=C (se permiten filas diferentes), ejecute las declaraciones que contiene.
Si Range(" A " ampI) Range(" B " amp; j) = Range (" C " amp; k) entonces
Utilice el valor X para determinar qué columna de E Una línea tiene una línea en blanco.
X = 1' Juez desde la primera línea.
Hacer mientras X gt "0" ingresa al bucle Do.
Si range(" E " ampX) = " "Entonces
"Exit Do" sale del proceso Do cuando aparece una celda vacía.
Otro
X = X 1 'En caso contrario, pasa a la siguiente línea.
Terminará si...
Anillo
Rellena los datos que cumplan las condiciones en las celdas en blanco de la primera fila de las columnas E, F y G respectivamente.
Rango(" E "ampx) = Rango(" A "amp;i)
Rango(" F "ampx) = Rango(" B "amp;j) p>
p>
Rango(" G " ampx) = Rango(" C " amp;k)
Salir de la declaración if
Si... fin
Leer el siguiente valor k hasta 13.
Siguiente K
Lee el siguiente valor de j hasta 13.
Siguiente J
Lee el siguiente valor I hasta el 13.
Siguiente yo
Conector final