Colección de citas famosas - Slogan de motivación - ¿Programación Excel?Vba?Ignorar celdas ocultas y arrastrar y copiar fórmulas.

¿Programación Excel?Vba?Ignorar celdas ocultas y arrastrar y copiar fórmulas.

Si está procesando datos filtrados automáticamente, hay

ejemplos

:

Dim

SX

Como

rango,

aR

como

rango,

r

Como

Rango,

bt

Como

Entero

' área de filtro Variable

Sub

prueba()

Establecer

SX

=

ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)

Para

Cada

aR

En

SX .Areas

'Áreas contiguas una a una

Para

Cada

r

En

aR.Rows

'Fila por fila

Si

bt

Entonces

' maneja el filtrado automático fuera de la fila, use r.Cells(1,

2) para referirse a la segunda columna de la fila r

Else

'Skip la fila del título

bt

=

1

End

If

Siguiente

Siguiente

Fin

Sub