¿Explicación del código Excel VBA?

Dim arr1,i amp,j $

Obtiene el rango de F1:Fx, donde X depende de la fila de la última celda de la columna A, por ejemplo A1 a A10 Hay contenido, pero no hay contenido al comienzo de A11, entonces el área obtenida por arr1 es F1: F66.

arr 1 = Range(" f 1: f " & cell(row.count,1).end(3).row)

Cuento celdas en 1 hasta el rango de arr1

Para i = 1 a UBound(arr1)

Si el contenido del (I, 1)ésimo elemento en arr1 contiene "* sección * representada por caracteres comodín", entonces se ejecutará la declaración en el IF.

Si arr1(i, 1) es como "*sección*" entonces

j = j amp", A " amp i

Terminará si ...

Siguiente I

La variable 'j' almacena las celdas correspondientes en la columna A que contienen "*sección*" en la columna F, como ",A1,A2" . Debido a que hay una coma al frente, debe usar Mid(j, 2) para regresar del segundo símbolo y eliminar la coma anterior.

El uso de la oración completa a continuación es seleccionar todas las filas que contienen contenido "* sección *"

Rango (Mid(j, 2)) selección de fila completa.

Conector final