Red de conocimiento informático - Aprendizaje de programación - ¿Explicación del código Excel VBA?

¿Explicación del código Excel VBA?

Sub ek_sky()

Dim arr1, i&, j$

'Obtiene el área de F1:Fx , donde x Depende de la fila de la última celda de la columna A. Por ejemplo: A1 a A10 tienen contenido y A11 no tiene contenido al principio Entonces el área obtenida por arr1 es F1: F10

. arr1 = Range("f1: f" amp; Cells(Rows.Count, 1).End(3).Row)

'iEl número de celdas en el área de 1 a arr1

For i = 1 To UBound(arr1)

'Si el contenido del (i, 1)ésimo elemento en arr1 contiene "*sección*" representada por caracteres comodín, ejecute la instrucción en el IF

Si arr1(i, 1) Como "*bar*" Entonces

j = j amp ",A" amp; Si

Siguiente i

La variable 'j almacena las celdas de la columna A correspondientes que contienen "*sección*" en la columna F, como ", A1, A2". coma delante, necesita Use Mid(j, 2) para comenzar desde el segundo símbolo y eliminar la primera coma

'La siguiente oración completa se usa para incluir el contenido de "*sección*" Seleccionar todas las filas

Range(Mid(j, 2)).EntireRow.Select

End Sub