Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.09.2020, 20:09   #1
lilpop
Пользователь
 
Регистрация: 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

Заранее спасибо!
Вложения
Тип файла: xls Книга1.xls (28.5 Кб, 1 просмотров)
lilpop вне форума Ответить с цитированием
Старый 08.09.2020, 02:04   #2
Elixi
Форумчанин
 
Регистрация: 10.05.2019
Сообщений: 163
По умолчанию

попробуйте
Вложения
Тип файла: xls Книга2.xls (69.0 Кб, 2 просмотров)
Elixi вне форума Ответить с цитированием
Старый 08.09.2020, 09:42   #3
lilpop
Пользователь
 
Регистрация: 06.09.2020
Сообщений: 17
По умолчанию

Elixi,
спасибо большое!
lilpop вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дублирование опций для какого либо объекта на форме Гессиан 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