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

@Rodmistar · Регистрация: 07.05.2014

Студворк — интернет-сервис помощи студентам

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

@ArtNord · 07.06.2019, 15:27

Visual Basic
1
Sheets("Лист1").Range("A:A").Copy Sheets("Лист2").Cells(1,1)

@Rodmistar · 07.06.2019, 15:39 **[ТС]**

Range что у него указано ?

@ArtNord · 07.06.2019, 15:49

Range("A:A") - столбец A
Range - Область

Добавлено через 6 минут
Соответственно если несколько нужно:

Visual Basic
1
Range("A:A, D:F, M:M")

@Rodmistar · 07.06.2019, 16:17 **[ТС]**

Почему код ваш не работает, он так в одну строку и пишется ?

@ArtNord · 07.06.2019, 16:24

Visual Basic
1
Sheets("Лист1").Range("B:B,D:E,H:H").Copy Sheets("Лист5").Cells(1, 11)

@Rodmistar · 07.06.2019, 16:43 **[ТС]**

ArtNord, подскажите что значит данный код

Visual Basic
1
2
3
4
5
IngUsedRows = 1
While Worksheets(currentSheet)._
        Range("D" & Cstr(IngUsedRows)).value <> ""
        IngUsedRows = IngUsedRows + 1
Wend

@ArtNord · 07.06.2019, 17:23

Rodmistar,
Это цикл

Visual Basic
1
2
3
4
5
IngUsedRows = 1 'присвоение переменной IngUsedRows значения 1
While Worksheets(currentSheet)._ ' начало цикла Рабочий Лист(текущий лист)
        Range("D" & Cstr(IngUsedRows)).value <> ""  'Проверка Код выполнятся пока не встретит пустую ячейку в столбце D
        IngUsedRows = IngUsedRows + 1 'Следующая строка
Wend  ' Переход в начало цикла

@Rodmistar · 09.06.2019, 18:34 **[ТС]**

ArtNord, а подскажите пожалуйста, как с определенной ячейки начать? Спасибо

Добавлено через 8 секунд
копирование

@ArtNord · 09.06.2019, 18:51

IngUsedRows = 1, здесь укажите номер строки 1 первая строка, укажите свою.
Range("D"... - название столбца, укажите свой, например Range("V"

Добавлено через 1 минуту
Вы что именно хотите сделать?
Скиньте свой кусок кода

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

@Rodmistar · 09.06.2019, 19:17 **[ТС]**

ArtNord, отправил файл. вот с первого листа нужно забрать данные со столбцов, и перенести на другой лист

@Rodmistar · 09.06.2019, 19:18 **[ТС]**

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

@ArtNord · 09.06.2019, 19:28

По какоу принципу собирать и перекидывать данные? Первый лист это Лист2?

@Rodmistar · 09.06.2019, 19:41 **[ТС]**

ArtNord, Да лист2 это лист(случайно так получилось). №вх и №исх скопировать в столбцы №. Столбец место разделить на том и листы по запятой. Но в листе1 таких строк всего лишь 24. то есть нужно разбить

@ArtNord · 09.06.2019, 20:22

Чего0то с регулярками затупил, не срослось. Сделал по-колхозному. Но вроде работает

@Rodmistar · 09.06.2019, 20:37 **[ТС]**

ArtNord, спасибо

@Rodmistar · 09.06.2019, 20:37 **[ТС]**

Откуда взялся №

@ArtNord · 09.06.2019, 20:41

Упс:
Замените:

Visual Basic
1
2
AllIn = Application.WorksheetFunction.CountA(Sheets("Лист1").Range("B:B")) + 1
AllEx = Application.WorksheetFunction.CountA(Sheets("Лист1").Range("E:E")) + 1

@ArtNord · 09.06.2019, 20:44

Все не протестил, так вроде правильно:

@Rodmistar · 09.06.2019, 20:48 **[ТС]**

ArtNord, еще один вопрос и вообще круто будет. Как сделать чтобы записал на первые 24 строки и потом перенес на другой столбец, то есть в столбец D.

Добавлено через 1 минуту
ArtNord, в последнем файле не записал 2 номер

Новые блоги и статьи Все статьи Все блоги /
Мастер-класс по микросервисам на 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 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489

	Перенос на другой лист 07.06.2019, 15:20. Показов 6412. Ответов 43 Метки нет (Все метки) Помогите в написании макроса который перенесет информацию с одного листа на другой, определенные столбцы. Заранее спасибо. Еxcel. 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	07.06.2019, 15:39 [ТС]
	Range что у него указано ? 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	07.06.2019, 16:17 [ТС]
	Почему код ваш не работает, он так в одну строку и пишется ? 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	09.06.2019, 18:34 [ТС]
	ArtNord, а подскажите пожалуйста, как с определенной ячейки начать? Спасибо Добавлено через 8 секунд копирование 0

@ArtNord 371 / 269 / 93 Регистрация: 18.11.2015 Сообщений: 1,001
	09.06.2019, 18:51
	IngUsedRows = 1, здесь укажите номер строки 1 первая строка, укажите свою. Range("D"... - название столбца, укажите свой, например Range("V" Добавлено через 1 минуту Вы что именно хотите сделать? Скиньте свой кусок кода Добавлено через 1 минуту Копировать, данные определенных ячеек на другой лист? 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	09.06.2019, 19:18 [ТС]
	Я разбирался в чужом коде, и пытался сделать те же методы использовать, но почему то не выходит 0

@ArtNord 371 / 269 / 93 Регистрация: 18.11.2015 Сообщений: 1,001
	09.06.2019, 19:28
	По какоу принципу собирать и перекидывать данные? Первый лист это Лист2? 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	09.06.2019, 19:41 [ТС]
	ArtNord, Да лист2 это лист(случайно так получилось). №вх и №исх скопировать в столбцы №. Столбец место разделить на том и листы по запятой. Но в листе1 таких строк всего лишь 24. то есть нужно разбить 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	09.06.2019, 20:37 [ТС]
	ArtNord, спасибо Миниатюры 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	09.06.2019, 20:37 [ТС]
	Откуда взялся № 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	09.06.2019, 20:48 [ТС]
	ArtNord, еще один вопрос и вообще круто будет. Как сделать чтобы записал на первые 24 строки и потом перенес на другой столбец, то есть в столбец D. Добавлено через 1 минуту ArtNord, в последнем файле не записал 2 номер 0

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

Решение