Colección de citas famosas - Frases elegantes - Soy un novato. El código fuente abierto que encontré provocó que se repitiera esta búsqueda de una sola columna. Me gustaría hacer una pregunta. ¿Por qué no se puede ejecutar el siguiente código?

Soy un novato. El código fuente abierto que encontré provocó que se repitiera esta búsqueda de una sola columna. Me gustaría hacer una pregunta. ¿Por qué no se puede ejecutar el siguiente código?

El código es realmente complicado. Lo reescribiré y agregaré comentarios para su referencia.

Verificación duplicada de subcolumna única()

Dim. iRow, i, j As Long

iRow = Range("A65536").End(xlUp).Row 'Obtiene el número máximo de filas con datos en la columna A.

Para i = 1 To iRow - 1 'Recorrido desde la primera fila hasta el número máximo de filas menos una fila

For j = i + 1 To iRow 'Recorrido desde la segunda fila hasta el número máximo de filas

Si Celdas(i, 1) = Celdas(j, 1) Y Celdas(i, 1) <> "" Entonces 'Comprueba si hay duplicados y las celdas no pueden estar vacías

Cells(i, 1).Interior .ColorIndex = 3 'Si se encuentran duplicados, el color de la marca es rojo

Cells(j, 1).Interior.ColorIndex = 3 ' Si se encuentran duplicados, el color de la marca es rojo

Finalizar si

Finalizar sub

上篇: Canción antiepidémica "Because of You" 下篇: ¿Mi tiempo futuro en todas las letras?