Excel Vba Перенос строки - Microsoft Office Excel

HelperAwM · 21.06.2010, 13:11

Здраствуйте программисты.
Нужна помощь в такои задачке:
Исходный файл 1.JPEG
Нужно Перенести "50" на лист 2
См файл 2.JPEG
с помощью кода
Но не все так просто нужно как-то задать формат всем ячейкам т.е 21.05.2010 Будет Дата , Привет Будет Текст ,50 будет число ,и нужно все числа которые имеются в Листе 1 перенести на Лист 2 .

SAS888 · 21.06.2010, 13:21

Перебираем все требуемые ячейки и проверяем: если это число, то копируем на 2-й лист. Например, так:

Код:

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If IsNumeric(Cells(i, 1)) Then Cells(i, 1).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next

HelperAwM · 21.06.2010, 13:59

Нефигасе я конечно толком непонел как она работает , но работает
Спасибо большое SAS888 а ещо вопрос с помощью это кода можно все что угодно перебирать и копировать?и где минять если да
If IsNumeric(Cells(i, 1)) тут?)) как будет выгледить дата интересно
Спасибо большое!!!

SAS888 · 21.06.2010, 14:08

Цитата:

как будет выгледить дата интересно

IsNumeric заменить на IsDate

HelperAwM · 21.06.2010, 16:22

Ога спасибо.Если не трудно а как из 2 колонок перенести строки с числами?)... Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Это ты прав xDDD

21.06.2010, 13:21	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Перебираем все требуемые ячейки и проверяем: если это число, то копируем на 2-й лист. Например, так: Код: `For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If IsNumeric(Cells(i, 1)) Then Cells(i, 1).Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA Word,VBA Excel решить 2 задачи	fafolo4ka	Фриланс	6	05.03.2012 01:15
Как запретить запуск программы на VBA Excel 2003 в Excel 2007	kovalevskivf	Microsoft Office Excel	2	15.05.2009 16:47
Перенос данных в нужные ячейки через VBA	Detockin	Microsoft Office Excel	0	12.03.2009 12:04
Перенос строки	boostman	Общие вопросы Delphi	2	08.08.2008 18:12
Перенос нескольких файлов посредством VBA	Victor	Microsoft Office Excel	5	09.12.2007 23:25

21.06.2010, 13:59	#3
HelperAwM Пользователь Регистрация: 19.06.2010 Сообщений: 19	Нефигасе я конечно толком непонел как она работает , но работает Спасибо большое SAS888 а ещо вопрос с помощью это кода можно все что угодно перебирать и копировать?и где минять если да If IsNumeric(Cells(i, 1)) тут?)) как будет выгледить дата интересно Спасибо большое!!!

21.06.2010, 16:22	#5
HelperAwM Пользователь Регистрация: 19.06.2010 Сообщений: 19	Ога спасибо.Если не трудно а как из 2 колонок перенести строки с числами?)... Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Это ты прав xDDD