Trouble finding a way to export a Find All list

[chwilson0607]

I'm no Excel guru but am familiar enough with it - am having a heck of a time trying to find a way of exporting a list of Find All results to either a new worksheet or text file. None of the methods I've found will work. I am able to get the Find All results selected in the actual worksheet however when I try to copy using CTRL+C, I get an error saying "This action won't work on multiple selections". So my spreadsheet has MANY columns - all containing a list of email addresses - To, CC, and BCC. I imported into Excel and delimited so that address would appear in separate cells. Since some of the original cells contained MANY addresses, many columns were created. I'm trying to export a list of all addresses that match a certain email domain. Any help would be greatly appreciated.

Carl

 

[offthelip]

This macro will do this for you. :

Sub test()
Dim outarr()
Dim txt As String

inarr = Worksheets("Sheet1").UsedRange
ReDim outarr(1 To UBound(inarr, 1) * UBound(inarr, 2), 1 To 1) ' define output array large enough for every cell
srch = InputBox("Enter the search string")
Worksheets.Add
indi = 2
For i = 1 To UBound(inarr, 1)
 For j = 1 To UBound(inarr, 2)
  txt = inarr(i, j)
  ps = InStr(1, txt, srch, 1)
 If ps > 0 Then
   outarr(indi, 1) = inarr(i, j)
   indi = indi + 1
  End If
 Next j
Next i
Range(Cells(1, 1), Cells(indi, 1)) = outarr

   

End Sub