Ecxel перенос строки в столбец VBA

@tkt3524 · Регистрация: 03.05.2017

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

В екселе имеется два листа: Лист1 и Лист2
Данные в виде текста содержатся в
Лист1:
А1,В1,С1
А2,В2,С2
В результате работы макроса необходимо получить следующий результат в Листе2 (лист1 только в столбец)
Лист2:
Лист1А1
Лист1В1
Лист1С1
*пустая строка 2 шт
Лист1А2
Лист1В2
Лист1С2
*пустая строка 2 шт

Подскажите как это реализовать?

@OLEGOFF · 12.05.2017, 17:18

tkt3524, запишите макрос и посмотрите код

@tkt3524 · 13.05.2017, 07:11 **[ТС]**

Я писал, но у меня 1000 строк и для каждой писать не вариант, понимаю что надо это все в цикл засунуть, попытался но не вышло. как переходить по строкам с использованием цикла не могу понять(((

@Alex77755 · 13.05.2017, 07:35

приложил бы файл что есть и что надо получить

@tkt3524 · 13.05.2017, 08:34 **[ТС]**

Вот файл

@Vlad999 · 13.05.2017, 08:38

файл не смотрел, но т.к. 1000 строк то есть вероятность что строки вставки закончатся что тогда делать?

@tkt3524 · 13.05.2017, 08:54 **[ТС]**

А если циклом брать значение с одной ячейки и переносить значение в другую и так с определенным шагом для листа2 шаг +1 а для Листа 1 с шагом +4 и все это циклом я понимаю как это описать но вот тонкости с екселем не знаю.

начинаю цикл с переменной i он отрабатывает но вот смещение по ячейкам не работает((((

Пытался Range(i,1).Select и но он ругается на такие манипуляции

@Vlad999 · 13.05.2017, 12:06

Range так не записывается , так пишется Cells(i,1)

@tkt3524 0 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 6
		1
	Ecxel перенос строки в столбец VBA 12.05.2017, 16:43. Показов 1068. Ответов 7 Метки нет (Все метки) В екселе имеется два листа: Лист1 и Лист2 Данные в виде текста содержатся в Лист1: А1,В1,С1 А2,В2,С2 В результате работы макроса необходимо получить следующий результат в Листе2 (лист1 только в столбец) Лист2: Лист1А1 Лист1В1 Лист1С1 пустая строка 2 шт Лист1А2 Лист1В2 Лист1С2 пустая строка 2 шт Подскажите как это реализовать? 0

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,501
	12.05.2017, 17:18	2
	tkt3524, запишите макрос и посмотрите код 0

@tkt3524 0 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 6
	13.05.2017, 07:11 [ТС]	3
	Я писал, но у меня 1000 строк и для каждой писать не вариант, понимаю что надо это все в цикл засунуть, попытался но не вышло. как переходить по строкам с использованием цикла не могу понять((( 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	13.05.2017, 07:35	4
	приложил бы файл что есть и что надо получить 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	13.05.2017, 08:38	6
	файл не смотрел, но т.к. 1000 строк то есть вероятность что строки вставки закончатся что тогда делать? 0

@tkt3524 0 / 0 / 0 Регистрация: 03.05.2017 Сообщений: 6
	13.05.2017, 08:54 [ТС]	7
	А если циклом брать значение с одной ячейки и переносить значение в другую и так с определенным шагом для листа2 шаг +1 а для Листа 1 с шагом +4 и все это циклом я понимаю как это описать но вот тонкости с екселем не знаю. начинаю цикл с переменной i он отрабатывает но вот смещение по ячейкам не работает(((( Пытался Range(i,1).Select и но он ругается на такие манипуляции 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	13.05.2017, 12:06	8
	Range так не записывается , так пишется Cells(i,1) 0