Восприятие ячеек заполненных пробелами - как пустые

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Восприятие ячеек заполненных пробелами - как пустые (Макросы/Sub)

RagnarLodbrokovitch

Дата: Среда, 14.11.2018, 17:54 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
Макрос извлекает из диапазона I7:J51 листа3 - текст, который берет из диапазона N4:N14 - на листе2.
Он помещает извлеченный текст в соответствующую ячейку столбца K

Но проблема в том, что он работает только если - ячейки диапазона I7:J51 - ниже последних заполненных ячеек - полностью ничем не заняты.
Если там стоят пробелы (как сейчас) - то макрос не будет реагировать на текст и не извлечет в ячейку K33 нужные текстовые данные.

Как заставить макрос - воспринимать ячейки диапазона I7:J51 листа3, заполненные пробелами - как пустые ?
(чтобы он извлек нужный текст - в ячейку K33)

Я так понял, что нужно где-то в коде разместить вот такую стоку:
[vba]

Код

If Len(Replace(Range("I7:J4000"), " ", "")) = 0 Then MsgBox " "

[/vba]
Но где именно - пока не могу понять.

К сообщению приложен файл: 8993291.xls (52.0 Kb)

Ответить

bmv98rus

Дата: Среда, 14.11.2018, 20:20 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата

Восприятие ячеек

:-)
что ж вы мечетесь? Там нормальный вопрос и ответ, но не знаете как с этим работать, бежите сюда но формулировка темы не соответствует вопросу. размышляйте над этой конструкцией.
[vba]

Код

  For Each Cell In [E7:E4000]
  Cell.Value = Trim(Cell.Value)
  Next

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Среда, 14.11.2018, 20:24