Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » IvankoSusanin
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Удалить в строках символы до скобки
 
#
24.02.2014 02:31:46
Цитата
Найти и заменить *( на ( не пробовали?
попробовал работает спасибо решено
 
Перейти    
Удалить в строках символы до скобки
 
#
24.02.2014 00:29:51
Ребят помогите написать макрос для удаления в строках текста до скобки "("

Пр:
Ноутбук 15.6" Acer Aspire E1-522-45004G50Mnkk (NX.M81EU.004)
Ноутбук 15.6" Acer Aspire E1-522-45004G75Mnkk (NX.M81EU.007)
Ноутбук 15.6" Acer Aspire E1-522-45004G75Mnkk (NX.M81EU.007)
Ноутбук 15.6" Acer Aspire E1-522-45004G50Mnkk (NX.M81EU.004)
Ноутбук 15.6" Acer Aspire E1-522-45004G75Mnkk (NX.M81EU.007)

Результат:
(NX.M81EU.004)
(NX.M81EU.007)
(NX.M81EU.007)
(NX.M81EU.004)
(NX.M81EU.007)
Изменено: IvankoSusanin - 24.02.2014 00:31:54
 
Перейти    
Удаление группировки с содержимым
 
#
15.01.2014 23:27:55
Цитата
lexey_fan
Спасибо!
Изменено: IvankoSusanin - 15.01.2014 23:28:12
 
Перейти    
Удаление группировки с содержимым
 
#
14.01.2014 20:12:50
Вариант №1
Цитата
ps: вместо 345 указываем, номер строки до какой нужно удалить информацию
Укажите

Код

Cells(Rows.Count, 4).End(xlUp).Row-1 'последняя заполненная ячейка
Вы имеете ввиду так:


Код
Sub test()
If Rows(ActiveCell.Row).OutlineLevel = 1 Then n = ActiveCell.Row Else Exit Sub
Cells(Rows.Count, 4).End(xlUp).Row-1  'последняя заполненная ячейка
If i <> n Then
If Rows(i).OutlineLevel = 1 Or Cells(i, 4) = "" Then GoTo mska ' определяется конец области удаления (1 группа либа пустая строка)
End If
Next
mska:
For irow = i - 1 To n Step -1
Rows(irow).Delete
Next
End Sub
если да! То так не работает!
Изменено: IvankoSusanin - 14.01.2014 20:14:02
 
Перейти    
Удаление группировки с содержимым
 
#
14.01.2014 04:27:40
Цитата
lexey_fan
Спасибо!
Вариант №1 РЕШЕНО работает отлично!
Код
Sub test()
If Rows(ActiveCell.Row).OutlineLevel = 1 Then n = ActiveCell.Row Else Exit Sub
For i = n To 345
If i <> n Then
If Rows(i).OutlineLevel = 1 Or Cells(i, 4) = "" Then GoTo mska ' определяется конец области удаления (1 группа либа пустая строка)
End If
Next
mska:
For irow = i - 1 To n Step -1
Rows(irow).Delete
Next
End Sub
ps:  вместо 345 указываем, номер строки до какой нужно удалить информацию
*только первый уровень группировки.

Вариант №2
Возникли вопросы:

 
Код
Sub test1()
Z = 2 'Номер группы во 2 группировке
If Rows(ActiveCell.Row).OutlineLevel = 1 Then n = ActiveCell.Row Else Exit Sub
c = 1
For ii = n To 345
If Rows(ii).OutlineLevel = 2 Then
If c = Z Then
n = ii
GoTo mask1
Else
c = c + 1
End If
End If
Next
mask1:
For i = ii To 345
If i <> ii Then
If Rows(i).OutlineLevel <= 2 Or Cells(i, 4) = "" Then GoTo mska ' определяется конец области удаления
End If
Next
mska:
For irow = i - 1 To n Step -1
Rows(irow).Delete
Next
End Sub

Код
Z = 2 'Номер группы во 2 группировке
Здесь указываем номер группировки ОТкуда удалять от 1-5?
Код
For ii = n To 345
Здесь указываем  строку ОТкуда удалять?

Код
For i = ii To 345
Здесь указываем  строку ДОкуда удалять?

Код
If Rows(i).OutlineLevel <= 2 Or Cells(i, 4) = "" Then GoTo mska ' определяется конец области удаления
Вместо 2 указываем номер группировки ДОкуда удалять от 1-5?

Правильно я понял?
 
Перейти    
Удаление группировки с содержимым
 
#
12.01.2014 15:56:47
Цитата
lexey_fan
Спасибо за помощь!

Я конечно, извиняюсь! Но не работает у меня этот макрос так как нужно.
Удаляет информацию с 1 -го уровня вложения группировки, и все!
Но во 2-3-4-5 уровнях вложения группировки, все категории и товары остаются!
Что бы увидеть это, нужно нажать на  2-3-4-5 уровни вложения группировки.

Цитата
от активной ячейки до конца таблицы
Удалять все до конца, нельзя! В примере указаны две группировки, а в основном документе их 30.
Как тогда удалить выборочно: Например 25/7/8/10 группировки со всеми вложениями (5-ю уровнями группировки) ?

Или как осуществить выборочное удаление с разных слоев/вложений группировки?
Цитата
Вопрос № 2
Удалить 2-й уровень группировки в 01 Ноутбуки, ультрабуки, нетбуки --- строку 251(01.06 Аксессуары к ноутбукам) со всеми вложениями.
 
Перейти    
Удаление группировки с содержимым
 
#
12.01.2014 02:22:07
Макрос запустил! Но работает он некорректно, оставляет после себя кучу мусора!
Что бы увидеть это, нужно нажать на 2-5 уровни группировки.
Изменено: IvankoSusanin - 12.01.2014 03:04:24
 
Перейти    
Удаление группировки с содержимым
 
#
12.01.2014 02:16:23
Захожу в VBA / создаю Module / Вставляю код / Сохраняю.
Захожу в документ / Макрос / не могу запустить (нет макроса).
 
Перейти    
Удаление группировки с содержимым
 
#
12.01.2014 02:06:11
Цитата
iRow = ActiveCell.Row For iRow = ActiveCell.Row To 457 If Rows(iRow).OutlineLevel < 5 Then Rows(iRow).Delete End If Next
Не могу запустить!
 
Перейти    
Удаление группировки с содержимым
 
#
11.01.2014 23:15:56
Цитата
А Вы просто файл выложить не можете?
Он достаточно большой, с вложениями не вписывается в стандарт 100Кб.
Исправил!
Изменено: IvankoSusanin - 12.01.2014 03:03:02
 
Перейти    
Удаление группировки с содержимым
 
#
11.01.2014 23:00:00
Добрый вечер.
Нужно удалить группировки (от 1 до 5 уровня группировки) из прайса.
Выделить строку, и удалить все данные со всеми вложениями сразу.
Вар-т:
Выделить строку группировки --- Del  (удаляет первую строку, без вложения)--- Данные - Разгруппировать. (Не работает!)
Пример во вложении:
строку 7 (01 Ноутбуки, ультрабуки, нетбуки) оставить!
строку 274 (02 Интернет-планшет) с вложениями удалить!
Вопрос № 2
Удалить 2-й уровень группировки в 01 Ноутбуки, ультрабуки, нетбуки --- строку  251(01.06 Аксессуары к ноутбукам) со всеми вложениями.

Пример во вложении
Изменено: IvankoSusanin - 12.01.2014 03:02:42
 
Перейти    
Сравнить два excel файла
 
#
28.12.2013 20:39:03
Ребят задача усложнилась!
Есть два одинаковых по структуре прайса:
Прайс1:Прайс1
Прайс2 :Прайс2
Необходимо проверить на наличие изменений: указать место несоответствия ( можно подсветить), в любом из файлов!

Файлы выложу у себя на личном сайте (здесь ограничение на загрузку), вирусов НЕТ!
Готов отблагодарить!
Спасибо!
 
Перейти    
Сравнить два excel файла
 
#
15.12.2013 01:44:05
Нужен результат: Сравнения (на наличие изменений) Столбец 7/8 Книга 1 и Столбец 5/6 Книга 2. Рядом  в столбце выводить изменение: -/+ число, текст (текст изменения).
 
Перейти    
Сравнить два excel файла
 
#
14.12.2013 22:21:41
Игорь, не работает кнопка у меня, все данные указал, процесс прошел, а изменений никаких!
 
Перейти    
Сравнить два excel файла
 
#
14.12.2013 22:12:31
Dima S
Можно поподробнее...
Цитата
копирую одну таблицу под другую (в соответствующие столбцы, естественно),
понятно
Цитата
а столбцы, которые надо сравнить - в новые столбцы
еще раз рядом?
Цитата
 и строю сводную.
как вызвать функцию?
Извиняюсь за глупые вопросы, с excel знаком поверхностно.
Спасибо за помощь!
Изменено: IvankoSusanin - 14.12.2013 22:14:21
 
Перейти    
Сравнить два excel файла
 
#
14.12.2013 03:17:57
Ребята помогите сравнить 2-а excel файла.
Сравнить нужно Столбец 7/8 Книга 1 и Столбец 5/6  Книга 2.
Результат можно выводить в Книге2 строке 10/11 или отдельно в новой Книге.
Может быть у кого-то есть готовое решение?
Пример прикрепил. В оригинале документы большие, около 8 тыс строк.!
С excel знаком поверхностно.
Спасибо за помощь!
 
Перейти    
Страницы: 1
Наверх