Cara mencari seluruh workbook di excel dengan find and select

Ini adalah Makro Pencarian terbaik untuk Excel. Itu akan mencari setiap lembar kerja di buku kerja dan mengembalikan semua hasil yang cocok ke satu lembar kerja. Anda tidak perlu menentukan lookup_table tertentu dan data dapat ditempatkan di mana saja di lembar kerja dan akan tetap ditemukan dan dikembalikan dengan makro ini

Sub Return_Results_Entire_Workbook()

'This does not search the worksheet that will contain the results of the search

' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
' ||||||||||||||||||| ------------ TeachExcel.com -------------- |||||||||||||||||||||||||
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
' ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

'Number for the worksheet that contains the value for which to search
searchValueSheet = "Sheet1"

'Get the value for which we need to search into the macro
searchValue = Sheets(searchValueSheet).Range("A2").Value

'how many columns to the right of any "found" value that you want to use to return the data
returnValueOffset = 1

'The sheet where the results should be placed
outputValueSheet = "Sheet1"

'The column in the sheet where the results should be placed
outputValueCol = 2

'The row in the sheet where the results should be placed
'everything from this row down must be empty!
outputValueRow = 2

'clear the results display area
Sheets(outputValueSheet).Range(Cells(outputValueRow, outputValueCol), Cells(Rows.Count, outputValueCol)).Clear


'count the worksheets in the workbook
wsCount = ActiveWorkbook.Worksheets.Count

'loop through the worksheets in the workbook
For i = 1 To wsCount
    
    'Don't search the sheet with the lookup value or returned values - assumes source data will be on other tabs.
    If i <> Sheets(searchValueSheet).Index And i <> Sheets(outputValueSheet).Index Then
    
        'Perform the search, which is a two-step process below
        Set Rng = Worksheets(i).Cells.Find(What:=searchValue, _
                LookIn:=xlValues, _
                LookAt:=xlWhole, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False)
                
        If Not Rng Is Nothing Then
        
            rangeLoopAddress = Rng.Address
            
            Do
                Set Rng = Sheets(i).Cells.FindNext(Rng)
                Sheets(outputValueSheet).Cells(Cells(Rows.Count, outputValueCol).End(xlUp).Row + 1, outputValueCol).Value = Sheets(i).Range(Rng.Address).Offset(0, returnValueOffset).Value
            Loop While Not Rng Is Nothing And Rng.Address <> rangeLoopAddress
            
        End If
    
    End If

Next i


End Sub 

Kode di atas mungkin tampak membingungkan tetapi Anda benar-benar hanya perlu mengubah beberapa hal agar dapat bekerja dengan data Anda

Anda harus memberi tahu makro lembar kerja mana yang berisi nilai yang Anda cari, di mana nilai pencarian itu berada, di lembar kerja mana Anda ingin mengembalikan data setelah ditemukan dan di mana di dalam lembar kerja itu Anda ingin menampilkan data

Pertama, ubah searchValueSheet menjadi nama lembar kerja yang berisi nilai yang ingin Anda cari, searchValue

Nilai pencarian adalah referensi sel dari sel yang digunakan untuk menemukan data yang akan dikembalikan. Ubah A2 ke referensi sel yang berisi nilai yang Anda cari atau sel tempat Anda akan memasukkan nilai itu. Ingat, sel ini harus ditempatkan di searchValueSheet yang disebutkan di atas

returnValueOffset adalah nilai yang sangat penting. Ini memberi tahu makro seberapa jauh ke kanan untuk mencari data yang ingin Anda kembalikan setelah kecocokan untuk searchValue telah ditemukan. Perhatikan bahwa data yang dikembalikan harus berasal dari baris yang sama dengan data yang cocok dengan searchValue

OutputValueSheet adalah nama lembar kerja tempat Anda ingin mengembalikan data. Ubah nama dari Sheet1 menjadi apa pun yang Anda butuhkan. Ini bisa sama dengan searchValueSheet atau berbeda, tidak masalah

OutputValueCol adalah kolom tempat Anda ingin menampilkan hasil dalam OutputValueSheet

outputValueRow adalah baris pertama di mana hasil yang dikembalikan harus ditampilkan di outputValueCol pada outputValueSheet

Satu hal penting yang perlu diperhatikan adalah bahwa makro ini TIDAK akan mencari melalui lembar kerja yang direferensikan oleh SearchValue Sheet atau Output Value Sheet. Ini biasanya tidak masalah tetapi, jika ya, solusi termudah adalah membuat tab "Cari" khusus dan menyetel makro untuk mengembalikan semua yang ada di sana

Tampaknya banyak yang harus diubah, tetapi setidaknya saya membuatnya mudah bagi Anda. ;) Dan, setelah Anda menyetel makro ini agar berfungsi seperti yang Anda inginkan, ini akan menghemat BANYAK waktu

semoga membantu. . )

Kursus VBA Excel - Dari Pemula hingga Pakar

200+ Pelajaran Video 50+ Jam Pengajaran 200+ Panduan Excel

Jadilah master VBA dan Makro di Excel dan pelajari cara mengotomatiskan semua tugas Anda di Excel dengan kursus online ini. (Tidak diperlukan pengalaman VBA. )

Apakah ada cara untuk mencari beberapa file Excel sekaligus?

Bagaimana Anda mereferensikan seluruh buku kerja di Excel?

Bagaimana Anda mencari seluruh buku kerja dengan temukan & pilih Mac?