макрос к экселю

[nata85]

Привет. Помогите в написании макроса к екселю. Очень нужно!
Есть столбцы с текстом, например, "А", "В", "С".
В столбце "В" текст (города отгрузки, погрузки и т.д.), в остальных числа.
Так вот, нужно, чтобы по заданному тексту (например, "Новосибирск", "Новый Уренгой"), копировались строки на новый лист, которые содержат этот текст в ячейках столбца "В". Заданный текст должен быть отдельным списком, чтобы его можно было редактировать
Думаю, понятно написала. Очень буду признательна, пожалуйста, помогите.

[nata85]

неужели никто не может помочь?

[DiemonStar]

Вот так подойдёт?

[astecenko]

Не большой знаток я VBA, но можно как-то так

Sub ViborPoGorodu()
  Dim Goroda As String
  Dim i As Long: i = 2 'Начиная с какой строки анализировать 
  Dim j As Long: j = 2 'Начиная с какой строки сохранять

  Goroda = Trim(InputBox("Введите наименования городов через запятую", "Условия выборки"))
  'Goroda = (Cells(1, 2).Value 'Если надо брать список городов из ячейки раскоммент и указать
  If Goroda <> "" Then
    Sheets("Лист1").Select 'Лист с данными
    Do While Cells(i, 2).Value <> ""
      If InStr(1, Goroda, Trim(Cells(i, 2).Value)) > 0 Then
        Rows(i).Select
        Selection.Copy
        Sheets("Result").Select 'Лист с результатом
        Rows(j).Select
        Selection.Insert Shift:=xlDown
        Sheets("Лист1").Select 'Лист с данными
        j = j + 1
      End If
      i = i + 1
    Loop
  End If
End Sub

Можно замутить наверное как-нибудь более красиво с Split, массивом и т.д. и т.п.

[nata85]

Сообщение от DiemonStar

Вот так подойдёт?

немного не так
нужно, чтобы список слов, по которым происходит копирование, можно было редактировать и изменять

при вводе просто буквы "в", копирует не все строки (не копирует строку, где ест "ьыыыыыы"

как мне вставить этот макрос в уже созданный файл ексель (он большой)

Спасибо Вам, DiemonStar, очень признательна за отклик