|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.11.2010, 10:33 | #1 |
Пользователь
Регистрация: 26.10.2010
Сообщений: 32
|
Поиск "проблемных значений" и вставка строки в новый документ Excel
Доброго времени суток!
Нужен макрос при активации которого он будет "анализировать" столбец G и при нахождении значений меньше 35% будет добавлять эту строку в отдельный документ. Исходный Файл:Альфа-Директ Конечный файл:Журнал учёта Помогите пожалуйста! |
16.11.2010, 12:15 | #2 |
Форумчанин
Регистрация: 06.08.2009
Сообщений: 472
|
можно сделать так,
Код:
|
16.11.2010, 12:48 | #3 | |
Пользователь
Регистрация: 26.10.2010
Сообщений: 32
|
Цитата:
а если перед копированием строки добавить ещё переход на последнюю строчку, то как будет выглядеть? вот код перехода на последнюю строчку: Sub Макрос5() Dim i As Long Dim this i = ActiveCell.SpecialCells(xlLastCell) .Row For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows this = rw.Cells(i, 1).Value If this = "" And i = 1 Then Exit For i = i + 1 Next Cells(i, 1).Select End Sub |
|
16.11.2010, 13:25 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Этот код (Макрос5()) в общем случае неверен. В частном - может отработать верно. Хотя я такой случай не нащупал...
Проще так (если лист до упора не заполнен): Sub ttt() LastRow = Range("A" & Rows.Count).End(xlUp).Row Cells(LastRow, 1).Select End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 16.11.2010 в 13:35. |
16.11.2010, 13:46 | #5 | |
Пользователь
Регистрация: 26.10.2010
Сообщений: 32
|
Цитата:
поможете написать правильный код для перехода на последнюю пустую? |
|
16.11.2010, 13:56 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Да в общем это и есть, добавьте 1:
LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1 Или Вы заранее не знаете, в каком столбце будет нижнее значение?
webmoney: E265281470651 Z422237915069 R418926282008
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск проблемных значений и вставка строк в другой документ Excel | Gvaridos | Microsoft Office Excel | 3 | 27.10.2010 10:24 |
Вставка картинки из файла в Excel при нажатии на кнопку "Экспортировать" из C++ Builder | ArTemi4 | Помощь студентам | 0 | 06.06.2010 19:48 |
вставка символа "конец строки" (Pascal) | ТаняН | Помощь студентам | 2 | 05.06.2010 15:08 |
"поиск решения" excel в цикле vba | novak_26 | Microsoft Office Excel | 3 | 25.02.2010 22:48 |