title: 66k lines to analyze in Excel
body: <p>I huge amount of data to analyze!
  I have a table <strong>"Resolved Met"</strong> and on column G with some text that contains a server name 
  and table <strong>"Server List"</strong> with 66k name of servers</p>
  
  <p>I have to analyze if the text contains the server name on table <strong>"Server List"</strong> and if yes to write the server name in front of the text ( in another cell)</p>
  
  <p>What I did was to go to first line of table <strong>"Server List"</strong> and look for it on column where the text is with a loop </p>
  
  <p>It took more than 6 hours to analyze everything once the I have 66k serves name and 130k lines of text.
  Here is my code. Do you have some better idea to make it faster?</p>
  
  <pre><code>Sub ()
  
  i = 1
  Sheets("Server List").Select
  Range("A1").Select
  
  servername = ActiveCell.Offset(i, 0).Value
  
  Do Until IsEmpty(servername)
  
      Sheets("Resolved Met").Select
  
      With Worksheets("Resolved Met").Range("G:G")
          Set server = .find(What:=servername, LookIn:=xlValues)
          If Not server Is Nothing Then
              firstAddress = server.Address
              Range(firstAddress).Select
              ActiveCell.Offset(0, 13) = servername
              Do
                  Set server = .FindNext(server)
                  If server Is Nothing Then
                      GoTo DoneFinding2
                  End If
                  SecondAdress = server.Address
                  Range(SecondAdress).Select
                  ActiveCell.Offset(0, 13) = servername
  
              Loop While SecondAdress &lt;&gt; firstAddress
          End If
          DoneFinding2:
      End With
  
  
      Sheets("Server List").Select
      i = i + 1
      servername = ActiveCell.Offset(i, 0).Value
  
  Loop
  </code></pre>