|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.05.2011, 03:46 | #1 |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Строки, строки
Здавствуйте Все!
Столько о них(строках)говорено и все равно возник вопрос. В прилагаемом файле есть кнопка "Новый участок" запускающая макрос "NewUshastok". Вопрос: 1. Как в вновь созданном блоке удалить диапазон строк с 17 по 19 включительно(количество строк не постоянно). В столбцах А и В ячейки объеденены(что меня и тупит). 2.Будьте добры, объясните почему в моем примере такой код копирования и вставки строк не работает Sub NewUshastok() Dim i As Long, j As Long Application.ScreenUpdating = False i = Cells(Rows.Count, 1).End(xlUp).Row j = i - Cells(i - 2, 1).MergeArea.Rows.Count Rows(i + 1 & ":" & j).Copy 'Копирует диапазонстрок не с 10 а, с 11 строки в приведенном примере Rows(i).Insert 'Выдает ошибку Run-time error 1004 Application.ScreenUpdating = True End Sub Спасибо. |
05.05.2011, 09:39 | #2 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Так попробуйте:
Код:
|
05.05.2011, 14:18 | #3 | |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Цитата:
|
|
06.05.2011, 12:22 | #4 | |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Цитата:
Sub NewUshastok() Dim i As Long, j As Long, n As Long, rng As Range Application.ScreenUpdating = False i = Cells(Rows.Count, 1).End(xlUp).Row Set rng = Range(Cells(i - 2, 1).MergeArea, Cells(i + 1, 1)) rng.EntireRow.Copy Cells(i, 1) n = Cells(i - 2, 1) j = Cells(Rows.Count, 1).End(xlUp).Row Cells(j - 4, 3) = 1: Cells(j - 3, 3) = 2 If rng.Count > 6 Then Range(Cells(j - 5, 1), Cells(i, 1)).EntireRow.Delete Cells(i, 1) = n + 1 Application.ScreenUpdating = True End Sub |
|
06.05.2011, 13:44 | #5 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
С объединенными ячейками всегда проблемы. Пробуйте так:
Код:
|
07.05.2011, 00:24 | #6 | |
Форумчанин
Регистрация: 11.08.2009
Сообщений: 135
|
Цитата:
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны строки S и S0. Удалить из строки S все подстроки, совпадающие с S0 . Если совпадающих подстрок нет, | Шпунюся | Помощь студентам | 1 | 16.12.2010 21:02 |
Создание пустой строки и копирование в неё содержимое предыдущей строки | Gvaridos | Microsoft Office Excel | 2 | 29.10.2010 13:33 |
Дбавление новой строки, после строки с подходящими параметрами | RailOS | Microsoft Office Excel | 5 | 18.08.2010 10:12 |
Определять максимальную длину той части строки s, которая не содержит символы из строки s1. | Александе еть я | Общие вопросы C/C++ | 5 | 13.04.2010 20:54 |
Перенести символа с начала строки в место перед запятой этой же строки. | Zhiltsov | Microsoft Office Excel | 4 | 05.06.2009 13:10 |