1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 93

Перенос данных на другой лист

03.12.2015, 18:39. Показов 2558. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток. Есть таблица состоящая из двух столбцов: "Фамилия ученика" и "Класс". Необходимо учеников старше 5 класса переместить из этой таблицы на новый лист
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
03.12.2015, 18:39
Ответы с готовыми решениями:

Фильтрация и перенос данных на другой лист
Здравствуйте. Всю голову сломала. Есть таблица. В ней множество данных, но основной столбец о котором пойдет речь это "Дочернее...

Перенос данных из отфильтрованной таблицы на другой лист
Есть большая таблица классификатор материалов с 6 и более параметрами в строке. Задача отфильтровать в ручном режиме по определенным...

Подсчет, фильтрация и перенос данных на другой лист Excel
Доброго времени суток! Мне была поставлена следующая задача Есть 2 книги excel Одна как справочник (ИСТ), вторая для заполнения ...

2
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
03.12.2015, 20:18
medved_program, автофильтр по классу с условием ">5", видимые строки вырезать и вставить на новый лист.
0
1 / 1 / 0
Регистрация: 14.10.2014
Сообщений: 93
04.12.2015, 08:56  [ТС]
Это понятно, но как это реализовать в vba, я имею ввиду вырезать всю строку..

Добавлено через 22 минуты
к примеру, я нахожу по условию нужную ячейку, выделяю ее. Вопрос, можно ли обратиться к строке, где выделена ячейка?
Вот мой код, он копирует, но не вставляет, пишет что метод range завершен не верно
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim i, j As Variant
For i = 1 To 1000
If Worksheets("Лист1").Cells(i, 4) > 199 Then
Worksheets("Лист1").Cells(i, 4).Activate
Rows(i).Copy
Worksheets("Лист2").Cells(i, 1).Activate
Rows(i).Paste
End If
Next i
End Sub
Добавлено через 20 минут
Вот я написал код, но он делают работу не до конца, т.е. копирует лишь первое подходящее значение
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim i, j As Variant
For i = 1 To 1000
If Worksheets("Ëèñò1").Cells(i, 4) > 199 Then
 
Rows(i).Select
        Rows(i).Copy
Rows(i).Select
                Worksheets("Ëèñò2").Paste
End If
Next i
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.12.2015, 08:56
Помогаю со студенческими работами здесь

Перенос данных с ячеек одного листа на другой лист
Добрый день! Помогите пожалуйста автоматизировать заполнение таблицы (графика на месяц). Excel 2010. Данные в желтой колонке ,в...

Перенос данных с одного листа одной книги на другой лист другой книги с константой
Добрый вечер, товарищи! Есть прайс-лист, который содержит в себе много колонок и строк. На ежедневной основе мне приходится распределять...

Перенос данных с одного листа в другой лист по строкам в разные ячейки
Добрый день! Помогите разобраться, есть файл Excel, в Лист2 занесены данные для печати в нужной форме, а на Лист3 должны данные попадать,...

Перенос на другой лист
Помогите в написании макроса который перенесет информацию с одного листа на другой, определенные столбцы. Заранее спасибо. Еxcel.

Перенос строки на другой лист
Помогите пожалуйста с простой задачей, не понимаю почему не работает. Нужно просто переносить строку из 17 столбцов в последнюю...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Мастер-класс по микросервисам на Node.js
Reangularity 21.06.2025
Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .
Управление Arduino из WPF приложения
Wired 21.06.2025
Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .
Звёздная пыль
kumehtar 20.06.2025
Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
Создание нейросети с PyTorch
AI_Generated 19.06.2025
Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .
JWT аутентификация в ASP.NET Core
UnmanagedCoder 18.06.2025
Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С#
aaLeXAA 18.06.2025
Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .
50 самых полезных примеров кода Python для частых задач
py-thonny 17.06.2025
Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД
stackOverflow 17.06.2025
Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .
Angular: Вопросы и ответы на собеседовании
Reangularity 15.06.2025
Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC
stackOverflow 15.06.2025
Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru