Как перенести отдельные данные из одного листа Excel на другой?

Question

[GoUp]

На листе 1 есть столбец с 1000 словами. Из них 500 слов содержат конкретное слово, например, стул. Как вырезать эти слова с этого листа и перенести на лист 2? На листе 1 эти слова удаляются.
Есть такая функция или макрос?

Answer 1

[Антон Федорян]

На панели "Разработчик" есть кнопка "Запись макроса":
- жмакаете на нее;
- делаете необходимые процедуры (перемещение\удаление слов);
- останавливаете запись;
- смотрите получившийся код;
- удаляете лишнее. добавляете необходимое.

Не совсем понятно как будут программно отбираться слова?

UpD (вот что получилось у меня):

Private Sub CommandButton1_Click()
    Dim key_word As String ' ключевое слово, по которому будем отбирать
    Dim i, count As Integer
        
    key_word = TextBox1.Text
    Sheets("Лист1").Select
    count = 0
    i = 1
    While (Cells(i, 1) <> "") ' проходим до первой пустой ячейки столбец А '
        If (InStr(1, LCase(Cells(i, 1)), LCase(key_word), vbBinaryCompare) > 0) Then ' если совпало '
            count = count + 1
            Cells(i, 1).Select
            Selection.Cut ' вырезаем из Лист1 '
            Sheets("Лист2").Select
            Cells(count, 1).Select
            ActiveSheet.Paste ' вставляем в Лист2 '
            Sheets("Лист1").Select
        End If
        i = i + 1
    Wend
    Label1.Caption = "find: " & count
    
    i = i - 1
    While (i > 0)
        If (Cells(i, 1) = "") Then
            Cells(i, 1).Select
            Selection.Delete Shift:=xlUp ' в Лист1 удаляем все пустые ячейки со сдвигом вверх '
        End If
        i = i - 1
    Wend
End Sub

Comments

[GoUp]

Я представлял что-то в этом роде. Задаем слово, по которому будет идти поиск ячеек, содержащих это слово в указанном числе и падеже. И собственно все. Процедуру повторяем несколько раз, меняя число и падежи.

[Антон Федорян]

GoUp: обновил ответ, добавил свое решение

[GoUp]

Я не особо разбираюсь в макросах, подскажите, его ведь нужно просто вставить и все?
Между
Sub Название макроса()
код вашего макроса
End Sub

[GoUp]

вроде так делается) но макрос не запускается, пишет ошибку

[Антон Федорян]

GoUp: макрос надо вставлять в событие кнопки onClick. А что за ошибка, на какой строчке? Форму создаете?

[GoUp]

Понятно, похоже не туда код вставил, я новичок в макросах :) Спасибо за ответ, буду разбираться)))))

Answer 2

[h8nor]

Задача быстрее решается через фильтры. В версиях 2007 и выше по умолчанию копируются только видимые ячейки.

Comments

[Антон Федорян]

Копировать ячейки вручную придется?

[h8nor]

Антон Федорян: Да. Это проблема?