在VBA中搜索整個工作簿，然後將結果粘貼到另一個工作表中

Question

首先，在信貸到期時給予貸款。這是使用來自Mr.Excel.com和exceltip.com的代碼。

現在，我已經得到了這一點的，我想創建一個搜索功能，將通過在Excel中我9頁文件搜索，發現被輸入到搜索框中的值的方式。然後將這些值粘貼到工作簿的第一頁上。

我需要什麼，在我的代碼修改，使其粘貼到搜索頁面上的正確位置？我試圖在最後一個循環中更改事物，因爲那是我得到「運行時錯誤91.對象變量或塊變量未設置」的地方。

我GOOGLE了這個錯誤，但總是變量擰我，這樣可能是問題。 The search page. This is where the Debugger stops. 這是到目前爲止我的代碼。

Sub Find_one() 
'Find Function For ERF Spreadsheet' 
'Type in Box, Press Button, Display the Results' 
    Dim ws As Worksheet, Found As Range 
    Dim myText As String, FirstAddress As String 
    Dim AddressStr As String, foundNum As Integer 

     myText = Range("D5") 

      If myText = "" Then Exit Sub 

       For Each ws In ThisWorkbook.Worksheets 
        With ws 
        'Do not search sheet1' 
         If ws.Name = "Sheet1" Then GoTo myNext 

          Set Found = .UsedRange.Find(What:=myText, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) 

         If Not Found Is Nothing Then 
          FirstAddress = Found.Address 

         Do 
          foundNum = foundNum + 1 
          AddressStr = AddressStr & .Name & " " & Found.Address & vbCrLf 

         Set Found = .UsedRange.FindNext(Found) 

         'Found.EntireRow.Copy _ 
         'Destination:=Worksheets("Sheet4").Range("A65536").End(xlUp).Offset(1, 0) 
         Loop While Not Found Is Nothing And Found.Address <> FirstAddress 
      End If 

myNext: 
        End With 

    Next ws 

    If Len(AddressStr) Then 

      Sheet8.Range("B18") = ws.Cells(x, 1) 
      Sheet8.Range("C18") = ws.Cells(x, 2) 
      Sheet8.Range("D18") = ws.Cells(x, 3) 
      Sheet8.Range("E18") = ws.Cells(x, 4) 
      Sheet8.Range("F18") = ws.Cells(x, 5) 
      Sheet8.Range("G18") = ws.Cells(x, 6) 
      Sheet8.Range("H18") = ws.Cells(x, 7) 
      Sheet8.Range("I18") = ws.Cells(x, 8) 
      Sheet8.Range("J18") = ws.Cells(x, 9) 

    Else: 
      MsgBox "Unable to find " & myText & " in this workbook.", vbExclamation 
    End If 

End Sub 

這是最後一個循環的原代碼...

If Len(AddressStr) Then 

    MsgBox "Found: """ & myText & """ " & foundNum & " times." & vbCr & _ 
    AddressStr, vbOKOnly, myText & " found in these cells" 

Else: 

    MsgBox "Unable to find " & myText & " in this workbook.", vbExclamation 

End If 

Answer 1

這裏，嘗試了這一點。我重溫了我對第一部分的解釋。我不完全確定你想要做什麼，所以讓我知道這是否有效或錯誤。

Sub FindOne() 
    Dim k As Integer 
    Dim myText As String, searchColumn As String 
    Dim totalValues As Long 
    Dim nextCell As Range 

    k = ThisWorkbook.Worksheets.Count 
    myText = Sheets(1).Range("D5").Value 

    If myText = "" Then 
     MsgBox "No Address Found" 
     Exit Sub 
    End If 

    Select Case ComboBox1.Value 
     Case "Equipment Number" 
      searchColumn = "A" 
     Case "Sequence Number" 
      searchColumn = "B" 
     Case "Repair Order Number(s)" 
      searchColumn = "D" 
     Else 
      MsgBox "Please select a value for what you are searching by." 
      End Sub 
    End Select 

    For i = 2 To k 
     totalValues = Sheets(i).Range("A65536").End(xlUp).Row 
     ReDim AddressArray(totalValues) As String 

     For j = 0 To totalValues 
      AddressArray(j) = Sheets(i).Range(searchColumn & j + 1).Value 
     Next j 

     For j = 0 To totalValues 
      If (InStr(1, AddressArray(j), myText) > 0) Then 
       Set nextCell = Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) 
       Range(nextCell, nextCell.Offset(0, 8)).Value = Sheets(i).Range("A" & j, "I" & j).Value 
      End If 
     Next j 
    Next i 

End Sub 

而且我不知道是什麼代碼是第二部分應該是，所以如果你想詳細說明與If Len(AddressStr) Then的部分，我會很感激它，因爲真的不即使工作一個如果... Then語句笑:)