Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel: замена пустых ячеек своим значением в цикле / 4 сообщений из 4, страница 1 из 1
02.09.2013, 08:19
    #38383780
excelister
excelister
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: замена пустых ячеек своим значением в цикле
Здравствуйте.

Помогите, пожалуйста, разобраться с ситуации...



На данный момент у меня уже успешно используется такой код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub supermacros()
Dim a As Workbook
Set a = ThisWorkbook
k = a.Sheets("Str").Range("G1").End(xlDown).Row
For c = 1 To k
If a.Sheets("Str").Cells(c, 6).Text Like "Ябло*" Then a.Sheets("Str").Cells(c, 6) = "Яблочная продукция"
Next c
End Sub



Теперь в соседнем столбце потребовалось заменять пустые ячейки (эти ячейки реально пустые, без пробелов и каких-либо скрытых символов) своим собственным значением. Не мудрствуя лукаво попытался модифицировать код, но не получается:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub pupermacros()
Dim a As Workbook
Set a = ThisWorkbook
k = a.Sheets("Str").Range("H1").End(xlDown).Row
For c = 1 To k
If a.Sheets("Str").Cells(c, 6).Text Like "" Then a.Sheets("Str").Cells(c, 6) = "Не определено"
Next c
End Sub



Код отрабатывает без ошибок, но пустые ячейки остаются пустыми. Что я делаю не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2013, 08:41
    #38383793
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: замена пустых ячеек своим значением в цикле
Код: vbnet
1.
Like ""

делает немного не то, что ты думаешь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2013, 09:55
    #38383851
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: замена пустых ячеек своим значением в цикле
Код: vbnet
1.
If a.Sheets("Str").Cells(c, 6).Text = "" Then


А справку по Like все же почитайте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2013, 10:10
    #38383865
excelister
excelister
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: замена пустых ячеек своим значением в цикле
Понял. Спасибо большое!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel: замена пустых ячеек своим значением в цикле / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]