KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo encontrar y obtener el valor de la primera celda visible tras aplicar un filtro en Excel?

AutoraSiluvia Fecha de modificación

En algunos casos, es posible que necesite obtener el valor de la primera celda visible en una lista filtrada. ¿Cómo puede lograrlo? Este artículo le mostrará métodos para resolverlo.

Encontrar y obtener el valor de la primera celda visible tras aplicar un filtro con una fórmula matricial
Encontrar y obtener el valor de la primera celda visible tras aplicar un filtro con VBA


Encontrar y obtener el valor de la primera celda visible tras aplicar un filtro con una fórmula matricial

Puede utilizar la siguiente fórmula matricial para obtener el valor de la primera celda visible en una lista filtrada. Siga estos sencillos pasos:

1. Seleccione una celda en blanco para colocar el primer valor visible, introduzca la siguiente fórmula y, a continuación, pulse simultáneamente las teclas Ctrl+Mayús+Intro.

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))

Una captura de pantalla que muestra el uso de una fórmula matricial para recuperar la primera celda visible en una lista filtrada en Excel

Nota: En la fórmula, C2:C19 es la lista filtrada de la que desea obtener el valor de la primera celda visible, y C2 es la primera celda de dicha lista. Puede ajustarlos según sus necesidades.

A continuación, verá el valor de la primera celda visible en la lista filtrada rellenado automáticamente en la celda seleccionada, tal como se muestra en la captura anterior.


Encontrar y obtener el valor de la primera celda visible tras aplicar un filtro con VBA

Además de usar la fórmula matricial anterior para obtener el valor de la primera celda visible en una lista filtrada, puede ejecutar el siguiente script de VBA y conseguir rápidamente la primera celda visible de dicha lista. Siga estos pasos:

1. Seleccione una celda en blanco, por ejemplo la E8, para introducir el valor de la primera celda visible de una lista filtrada.

2. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código VBA en la ventana del módulo.

Código VBA: encontrar y obtener el valor de la primera celda visible tras aplicar un filtro en Excel

Sub FirstVisibleCell()
   With Worksheets("Sheet1").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
    End With
End Sub

Nota: En el código, Hoja1 es el nombre de la hoja que contiene la lista filtrada y «C» es la columna de la que desea obtener el primer valor visible. Puede ajustarlos según sus necesidades.

4. Pulse la tecla F5 para ejecutar el código; a continuación, el valor de la primera celda visible de la lista filtrada en la columna C se rellenará automáticamente en la celda E8.

Las mejores herramientas de productividad para Office

🤖KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas
Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más
Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...


Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

ExcelWordOutlookTabsPowerPoint
  • Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un instalador, una licencia— configuración en minutos (compatible con MSI)
  • Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
  • Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio— ahorre frente a la compra individual de complementos