Мариан задается вопросом, есть ли способ скопировать всю строку с одного листа на другой на основе наличия определенного текстового значения («да») в столбце E строки. Vlookup, похоже, не подходит для такого типа оценки.

Если вам нужно выполнять этот тип задач только время от времени, вы можете просто использовать возможности фильтрации Excel. Включите фильтр и отфильтруйте данные, чтобы отображались только те строки, в которых в столбце E указано «да». Скопируйте видимые строки и вставьте их в любой рабочий лист, который вы хотите.

Если вам нужно выполнять задачу чаще, вы можете создать макрос, чтобы сделать копирование несложным. Следующий макрос проверяет первые 1000 строк Sheet1 и копирует на Sheet2 любые строки, содержащие «да» в столбце E.

Sub CopyYes()

Dim c As Range     Dim j As Integer     Dim Source As Worksheet     Dim Target As Worksheet

' Change worksheet designations as needed     Set Source = ActiveWorkbook.Worksheets("Sheet1")

Set Target = ActiveWorkbook.Worksheets("Sheet2")



J = 1     ' Start copying to row 1 in target sheet     For Each c In Source.Range("E1:E1000")   ' Do 1000 rows         If c = "yes" Then            Source.Rows(c.Row).Copy Target.Rows(j)

j = j + 1         End If     Next c End Sub

Обратите внимание, что макрос перезапишет любую информацию, уже находящуюся на Sheet2. Он также не является «динамическим», что означает, что если значения в столбце E изменяются и вы хотите, чтобы строки в Sheet2 отражали эти изменения, макрос не поможет.

Дополнительную информацию об автоматическом копировании информации с одного рабочего листа на другой можно найти на этом веб-сайте:

https://www.mrexcel.com/forum/excel-questions/602635- automatically-move-entire-rows-one-worksheet-into- another-worksheet-same-workbook.html

Несмотря на то, что URL-адрес здесь отображается в трех строках, все это один URL-адрес. Убедитесь, что вы загрузили все это в свой браузер.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (13399) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.