|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.09.2020, 20:09 | #1 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Растягивание ячейки в пустых строчках до какого-либо текста
Здравствуйте!
возникла проблема с кодом. задача: растянуть текст в пустых ячейках. Но когда растягивается во 2м столбце "уровень", то в 5 строчку (начальную) вставляется "знак",который идет после пустых строчек. "Знак" растягивается нормально. Надо, чтобы в 5 строчке осталось то слово, которое растягивается в первый раз, а не копировалось с другого конца последнее слово для растягивания. Файл эксель прилагается, там две таблицы, где показано что получается при этом коде: Sub растягивание1() Dim i& For i = 5 To Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).row Sheets("Лист2").Cells(i, 2) = Sheets("Лист2").Cells(5, 2) If Sheets("Лист2").Cells(i + 1, 2) <> "" Then Sheets("Лист2").Cells(5, 2) = Sheets("Лист2").Cells(i + 1, 2) i = i + 1 End If Next i End Sub Заранее спасибо! |
08.09.2020, 02:04 | #2 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 164
|
попробуйте
|
08.09.2020, 09:42 | #3 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
спасибо большое! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дублирование опций для какого либо объекта на форме | Гессиан | C++ Builder | 1 | 12.10.2013 21:23 |
Ошибка при скачивания какого либо файла | Eink | Помощь студентам | 3 | 08.02.2013 19:36 |
Text Box: размещение текста на разных строчках | Blondy | Microsoft Office Access | 12 | 05.04.2010 17:24 |
Можно ли использовать новую форму только дря хранения какого-либо(каких-либо) класса? | TwiX | Общие вопросы Delphi | 8 | 03.10.2009 11:06 |
Программка на Delphi показывающая сколько дней осталось до какого-либо события | Bigtyoma | Общие вопросы Delphi | 3 | 27.03.2009 19:15 |