Перенести данные - Microsoft Office Excel

Belokuraya · 10.08.2009, 14:35

Вопрос очень простой, на первом листе имеется таблица с данными (диапазон столбцов известен, кол-во строк постоянно увеличивается), данные из этой таблицы необходимо перекинуть на другой лист, но так, чтобы строки расположились не одна за другой, а через три.
Писала разные циклы, но того, что нужно не получилось(((

Tirendus · 10.08.2009, 14:58

я бы сделал так

-----

упс, походу я не так понял

думал, вы про столбцы, а не строки говорите

The_Prist · 10.08.2009, 15:11

Код:

Dim li As Long
Application.ScreenUpdating = False
Cells(1, 1).EntireRow.Copy Sheets("Лист3").Cells(1, 1)
For li = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 Cells(li, 1).EntireRow.Copy Sheets("Лист3").Cells((li - 1) * 4, 1)
Next li
Application.ScreenUpdating = True

Самый простой вариант.

Belokuraya · 10.08.2009, 15:36

The_Prist, спасибо, только вот на листе, с которого я беру данные, у меня один диапазон столбцов (напр. с 30 по 109), а на листе, куда я их переношу - другой(напр.с 5 по 86).

The_Prist · 10.08.2009, 15:42

Ну тогда так

Код:

Range(Cells(li, 30),Cells(li,109)).Copy Sheets("Лист3").Cells((li - 1) * 4, 5)

Belokuraya · 10.08.2009, 15:53

хм, а если через цикл:

For v = 30 To 109
pro = ActiveWorkbook.Worksheets("Prod").C ells(i, v).Value
ActiveWorkbook.Worksheets("Report2M onth").Cells(j, u).Value = pro
Next

только вот как для u задать диапазон с 5 по 86?

Belokuraya · 10.08.2009, 16:08

Разобралась сама, спасибо)))

10.08.2009, 14:35	#1
Belokuraya Пользователь Регистрация: 27.04.2009 Сообщений: 41	Перенести данные Вопрос очень простой, на первом листе имеется таблица с данными (диапазон столбцов известен, кол-во строк постоянно увеличивается), данные из этой таблицы необходимо перекинуть на другой лист, но так, чтобы строки расположились не одна за другой, а через три. Писала разные циклы, но того, что нужно не получилось(((

10.08.2009, 15:11	#3
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Код: `Dim li As Long Application.ScreenUpdating = False Cells(1, 1).EntireRow.Copy Sheets("Лист3").Cells(1, 1) For li = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(li, 1).EntireRow.Copy Sheets("Лист3").Cells((li - 1) * 4, 1) Next li Application.ScreenUpdating = True` Самый простой вариант. WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru Последний раз редактировалось The_Prist; 10.08.2009 в 15:14.

10.08.2009, 15:42	#5
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Ну тогда так Код: `Range(Cells(li, 30),Cells(li,109)).Copy Sheets("Лист3").Cells((li - 1) * 4, 5)` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перенести данные с одного листа на другой.	albih	Microsoft Office Excel	2	02.05.2009 12:55
Как перенести данные столбцов в один столбец?	CaustiC	Microsoft Office Excel	4	04.03.2009 11:11
Как перенести определённые данные из строки	Kamikaze13	Microsoft Office Excel	3	21.11.2008 10:57
как перенести данные с листа excel в текстовой фаил?	sergey34	Microsoft Office Excel	6	02.12.2007 22:59
Через запрос перенести данные с 6 таблиц	Таня84	БД в Delphi	5	22.03.2007 15:46

10.08.2009, 15:36	#4
Belokuraya Пользователь Регистрация: 27.04.2009 Сообщений: 41	The_Prist, спасибо, только вот на листе, с которого я беру данные, у меня один диапазон столбцов (напр. с 30 по 109), а на листе, куда я их переношу - другой(напр.с 5 по 86).

10.08.2009, 15:53	#6
Belokuraya Пользователь Регистрация: 27.04.2009 Сообщений: 41	хм, а если через цикл: For v = 30 To 109 pro = ActiveWorkbook.Worksheets("Prod").C ells(i, v).Value ActiveWorkbook.Worksheets("Report2M onth").Cells(j, u).Value = pro Next только вот как для u задать диапазон с 5 по 86?

10.08.2009, 16:08	#7
Belokuraya Пользователь Регистрация: 27.04.2009 Сообщений: 41	Разобралась сама, спасибо)))