Как автоматически переносить данные из мастер-листа в листы в Excel

Если вы используете Excel и хотите автоматически переносить данные из мастер-листа на указанные вложенные листы при соблюдении определенного условия, в этой статье объясняется, как для этого использовать VBA ( Visual Basic для приложений ). В этом примере показано, как автоматически переносить несколько столбцов на одном листе на другой, если значение в одном из полей равно « Да ». Значение условного поля может быть изменено по мере необходимости.

Автоматический перенос данных из мастер-листа в листы Excel

Для начала откройте документ Excel и откройте окно Microsoft Visual Basic для приложений, нажав [Alt] + [F11].

Затем найдите свои листы в левом столбце и дважды щелкните Мастер . Имена листов будут зависеть от того, что вы назвали их в Excel. Главный лист - это основной лист, где данные вводятся впервые, а вспомогательный лист - это место, где будут заполняться данные. Затем вставьте следующий код в большое белое поле:

 Private Sub Worksheet_Change (ByVal Target As Range) Если значение Intersect (Target, Columns ("G")) ничто, тогда выйдите из Sub 'Когда в столбце G нет изменений, ничего не делайте. «Значение ячейки, которое было изменено в столбце G, теперь будет называться Target. Если Target.Value = "Yes" Then 'Когда условие выполнено ("Да" в столбце G), тогда Range (Ячейки (Target.Row, "A"), Ячейки (Target.Row, "G")). Копировать _ Sheets (Target.Offset (0, -1) .Value) .Range ("A" & Rows.Count) .End (xlUp) .Offset (1, 0) 'Копировать строку, в которой внесены изменения, от столбца A до столбец G. 'Вставить на лист, упомянутый в столбце F, и в первую доступную строку. End If End Sub

Теперь вы можете закрыть окно Microsoft Visual Basic для приложений, и ваш файл теперь будет готов автоматически передавать данные, введенные в мастер-лист, в выбранные вложенные листы. Помните, что макрос будет работать только при внесении изменений в столбец G.

Спасибо TrowaD за этот совет.