Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo buscar rápidamente un valor en varias hojas o libros de trabajo?

¿Alguna vez ha creado una imagen para buscar un valor determinado en varias hojas o libros de trabajo en Excel? Este tutorial presenta algunos métodos diferentes para resolver los problemas relacionados con la búsqueda en varias hojas o la búsqueda en múltiples libros de trabajo.

Busque un valor en varias hojas de un libro de trabajo con la función Buscar y reemplazar

Buscar un valor en todos los libros de una carpeta con VBA

Busque rápidamente un valor en varios libros abiertos con Kutools para Excel buena idea3


Encuentre y reemplace el valor en hojas y libros de trabajo

Kutools for Excelestá avanzado Buscar y reemplazar función, puede ayudarlo a encontrar y reemplazar un valor en varias hojas y libros abiertos. Descargar libre
doc encontrar a través de libros de trabajo
Kutools para Excel: con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Con Excel Buscar y reemplazar función, puede encontrar un cierto valor en varias hojas.

1. Seleccione varias pestañas de hoja de las que desea encontrar el valor manteniendo presionada la tecla Ctrl tecla y hacer clic en las hojas de trabajo en el Barra de pestañas uno a uno. Ver captura de pantalla:

valor de búsqueda de documento en varias hojas 1

2. Entonces presione Ctrl + F para habilitar el Buscar y reemplazar ventana, y escriba el valor que desea buscar en Encuentra lo que cuadro de texto debajo Buscar ficha y, a continuación, haga clic Encuentra todos para listar todos los resultados. Ver captura de pantalla:

valor de búsqueda de documento en varias hojas 2


Si desea buscar un valor en todos los libros cerrados desde una carpeta, solo puede aplicar un VBA para resolverlo.

1. Habilite un nuevo libro de trabajo y seleccione una celda, luego presione Alt + F11 llaves para abrir Microsoft Visual para aplicaciones básicas ventana.

2. Hacer clic recuadro > Módulo y pegue debajo de VBA en la nueva ventana del Módulo.

VBA: busca un valor en todos los libros de una carpeta.

Sub SearchFolders()
'UpdatebyKutoolsforExcel20151202
    Dim xFso As Object
    Dim xFld As Object
    Dim xStrSearch As String
    Dim xStrPath As String
    Dim xStrFile As String
    Dim xOut As Worksheet
    Dim xWb As Workbook
    Dim xWk As Worksheet
    Dim xRow As Long
    Dim xFound As Range
    Dim xStrAddress As String
    Dim xFileDialog As FileDialog
    Dim xUpdate As Boolean
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a forlder"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xStrSearch = "KTE"
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    Set xOut = Worksheets.Add
    xRow = 1
    With xOut
        .Cells(xRow, 1) = "Workbook"
        .Cells(xRow, 2) = "Worksheet"
        .Cells(xRow, 3) = "Cell"
        .Cells(xRow, 4) = "Text in Cell"
        Set xFso = CreateObject("Scripting.FileSystemObject")
        Set xFld = xFso.GetFolder(xStrPath)
        xStrFile = Dir(xStrPath & "\*.xls*")
        Do While xStrFile <> ""
            Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
            For Each xWk In xWb.Worksheets
                Set xFound = xWk.UsedRange.Find(xStrSearch)
                If Not xFound Is Nothing Then
                    xStrAddress = xFound.Address
                End If
                Do
                    If xFound Is Nothing Then
                        Exit Do
                    Else
                        xCount = xCount + 1
                        xRow = xRow + 1
                        .Cells(xRow, 1) = xWb.Name
                        .Cells(xRow, 2) = xWk.Name
                        .Cells(xRow, 3) = xFound.Address
                        .Cells(xRow, 4) = xFound.Value
                    End If
                    Set xFound = xWk.Cells.FindNext(After:=xFound)
                Loop While xStrAddress <> xFound.Address
            Next
            xWb.Close (False)
            xStrFile = Dir
        Loop
        .Columns("A:D").EntireColumn.AutoFit
    End With
    MsgBox xCount & "cells have been found", , "Kutools for Excel"
ExitHandler:
    Set xOut = Nothing
    Set xWk = Nothing
    Set xWb = Nothing
    Set xFld = Nothing
    Set xFso = Nothing
    Application.ScreenUpdating = xUpdate
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

3. Entonces presione F5 o corrida para ejecutar este VBA, y un Seleccione una carpeta aparece un cuadro de diálogo para recordarle que seleccione una carpeta desde la que desea buscar el valor. Ver captura de pantalla:

valor de búsqueda de documento en varias hojas 3

4. Y luego haz clic OK y aparece otro cuadro de diálogo para recordarle el número de células que se han encontrado. Ver captura de pantalla:

valor de búsqueda de documento en varias hojas 4

5. Hacer clic OK a close y todas las celdas encontradas aparecen en la hoja de trabajo actual con la información correspondiente.

valor de búsqueda de documento en varias hojas 5

Consejos: En el VBA anterior, busca el valor "KTE"y puedes cambiar "KTE" de esto xStrSearch = "KTE" a otro valor que necesites


Si solo desea buscar un valor en varios libros abiertos, puede usar Kutools para Excels avanzado Buscar y reemplazar utilidad.

Kutools for Excel, con más de 300 Funciones prácticas, hace que sus trabajos sean más fáciles.

después instalación gratuita Kutools para Excel, haz lo siguiente:

1. En uno de los libros de trabajo abiertos, haga clic en Kutools > Navegación, y luego haga clic en Buscar y reemplazar botón botón de búsqueda doc ir a Buscar y reemplazar cristal. Ver captura de pantalla:

valor de búsqueda de documento en varias hojas 6

2. Luego haga clic Buscar pestaña, y escriba el valor que desea buscar en el Encuentra lo que cuadro de texto, y luego seleccionar Todos los libros de trabajo del Dentro de lista desplegable e ir a hacer clic Encuentra todos para enumerar todas las celdas encontradas Ver captura de pantalla:

valor de búsqueda de documento en varias hojas 7

Consejos:

Con Kutools for Excelestá avanzado Buscar y reemplazar utilidad, puede buscar y reemplazar el valor en hojas seleccionadas en varios libros de trabajo, todos los libros de trabajo, libro de trabajo activo, hoja activa o selección.

valor de búsqueda de documento en varias hojas 8


Navegación con pestañas y edición de múltiples documentos de Word / libros de Excel como Firefox, Chrome, Internet Explore 10!

Es posible que esté familiarizado con la vista de múltiples páginas web en Firefox / Chrome / IE, y cambie entre ellas haciendo clic en las pestañas correspondientes fácilmente. Aquí, Office Tab admite un procesamiento similar, que le permite explorar múltiples documentos de Word o libros de Excel en una ventana de Word o de Excel, y cambiar fácilmente entre ellos haciendo clic en sus pestañas.
¡Haz clic para obtener una versión de prueba gratuita de Office Tab!

Buscar documentos de varias palabras en una ventana como Firefox

Artículos relativos


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Rafael · 1 months ago
    como generar códigos qr
  • To post as a guest, your comment is unpublished.
    MM · 9 months ago
    Awesome this works perfect,
    Could you help me, I would like to create an hyperlink to each cell where the value was found.

    Thanks in advance
  • To post as a guest, your comment is unpublished.
    James · 1 years ago
    Perfect for what I need except for the fact that it creates a new sheet every search. How would I modify the code to use a single sheet for each search instead of creating a new one? Thanks, James
  • To post as a guest, your comment is unpublished.
    Ray · 1 years ago
    Your code works great, I look for a code that finds two texts in excel files, do you know how is it possible?
  • To post as a guest, your comment is unpublished.
    Matt Sabin · 1 years ago
    How can I add another column and bring the value that is always 3 columns to the right on the value found?
  • To post as a guest, your comment is unpublished.
    André · 1 years ago
    Thanks. It helped me a lot =)
  • To post as a guest, your comment is unpublished.
    Orlando B · 1 years ago
    This is what i want it to return "Site Instruction" which is allocated to all Text in Cell
    Workbook Worksheet Cell Text in Cell Site Instruction
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$20 CMS install 1773
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$21 CMS install 1763
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$24 CMS install 1551
  • To post as a guest, your comment is unpublished.
    Orlando B · 1 years ago
    Thanks for that VBA, it works perfectly to search multiple excel files, however it is possible to get it to return a 5th Column with Reference number? Else
    xCount = xCount + 1
    xRow = xRow + 1
    .Cells(xRow, 1) = xWb.Name
    .Cells(xRow, 2) = xWk.Name
    .Cells(xRow, 3) = xFound.Address
    .Cells(xRow, 4) = xFound.Value
    .Cells(xRow, 5) = ???
  • To post as a guest, your comment is unpublished.
    Orly B · 1 years ago
    Thanks for that VBA, it works perfectly to search multiple excel files, however it is possible to get it to return a 5th Column with Reference number? Else
    xCount = xCount + 1
    xRow = xRow + 1
    .Cells(xRow, 1) = xWb.Name
    .Cells(xRow, 2) = xWk.Name
    .Cells(xRow, 3) = xFound.Address
    .Cells(xRow, 4) = xFound.Value
    .Cells(xRow, 5) = ???