Так и макросом не сложно - алгоритм точно такой, как это можно рассказать словами:  
просматриваем один диапазон и все строки, где есть нужный признак, копируем на другой лист.  
Реализовать это можно разными способами - зависит от задачи (объёма данных, нужно ли копировать только данные или ещё и форматы, что ещё расположено на листе, по какому событию нужно делать эту работу и т.д.)

Скорее всего макрос/ы, как упомянул Hugo, но я в них, увы... Совет один - http://www.planetaexcel.ru/forum.php?thread_id=8735 - и в них особенно внимательно п.3....

Если "Будет очень большая база данных" то и обрабатывать думаю стоит как базу - с помощью SQL, или можно подключить файл как внешние данные к Access и там его мастером составить запрос, результат работы которого можно сохранить в xls.  
Ну или брать диапазон в массив, создавать массив для результата, перебором отбирать нужное, выгружать.  
Принцип как в коде Mouse, но в 50 раз быстрее - для больших объёмов.  
Кое Mouse хороший, но не для десятков тысяч строк.

Такой вариант, сродни автофильтру:  
 
 
Sub tt()  
   Dim x As Range, Priznak As Variant: Application.ScreenUpdating = False  
   Priznak = Application.InputBox("Укажите признак переноса строки", "Признак", "a")  
   Set x = [A:A].Find(Priznak, , , xlWhole)
   If Not x Is Nothing Then  
       [A:A].ColumnDifferences(x).EntireRow.Hidden = True
       ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("Лист2").[a1]
       Rows.Hidden = False  
   End If  
End Sub  
 
 
Можно отдельной строкой сперва скопировать заголовок (или другой прописать, или может он уже есть?), и затем копировать не в А1, а ниже, или в первую пустую, как у Mouse.

nnn_0202, а что вас пугает? У вас есть мы, вы можете в любой момент задать вопрос нам и мы вам поможем.

{quote}{login=Mouse}{date=26.12.2011 04:50}{thema=}{post}nnn_0202  
 
1) у вас в ячейке А2 вставлена русская буква "а", замените её на АНГЛИЙСКУЮ букву "а"  
 
2) учите макросы. См. файл. Код макроса можете посмотреть нажав Alt+F11 в приложенном файле.  
 
Код небольшой    
 
Sub Test()  
Dim iCell As Range, Priznak As Variant  
     
   Priznak = Application.InputBox("Укажите признак переноса строки", "Признак", "a")  
   For Each iCell In Range("A2", [A2].End(xlDown)) 'цикл по всем ячейкам А2 и ниже
       If iCell = Priznak Then  
           With Sheets("Лист2") 'копируем на Лист2  
               iCell.EntireRow.Copy Destination:=.Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")  
           End With  
       End If  
   Next iCell  
   MsgBox "Строки содержащие " & Priznak & " в столбце А скопированы на другой лист!", vbInformation, ""  
End Sub{/post}{/quote}  
 
Спасибо, в примере все работает. Но есть одно но. Надо чтобы данные по признакам  копировались на разные листы. Признак а - на один лист. Б - на другой ... Извините, что сразу подробно не сформулировала (( а что надо в коде поменять для этого?..