Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как добавить "текст" только в пустые ячейки? - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как добавить "текст" только в пустые ячейки?
AdwordsDirect Дата: Пятница, 03.03.2017, 19:36 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброго времени суток, есть 1000 ячеек, какие-то пустые, другие нет.
Нужно как-то добавить один текст во все пустые ячейки.

И противоположная задача, как добавить какой-то "текст" только в ячейки с определенным количеством символов?
Допустим в ячейки добавить "текст" только в те, где количество символов до 13?
 
Ответить
СообщениеДоброго времени суток, есть 1000 ячеек, какие-то пустые, другие нет.
Нужно как-то добавить один текст во все пустые ячейки.

И противоположная задача, как добавить какой-то "текст" только в ячейки с определенным количеством символов?
Допустим в ячейки добавить "текст" только в те, где количество символов до 13?

Автор - AdwordsDirect
Дата добавления - 03.03.2017 в 19:36
Pelena Дата: Пятница, 03.03.2017, 19:46 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19511
Репутация: 4620 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Отфильтровать нужные ячейки -- выделить -- в первой ячейке написать "текст" -- нажать сочетание Ctrl+Enter


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Отфильтровать нужные ячейки -- выделить -- в первой ячейке написать "текст" -- нажать сочетание Ctrl+Enter

Автор - Pelena
Дата добавления - 03.03.2017 в 19:46
Nic70y Дата: Пятница, 03.03.2017, 19:47 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_734()
Application.ScreenUpdating = 0
    For Each c In Range("a1:a199")
    If c = "" Then
    c.Cells = "текст"
    End If
    Next
End Sub
Sub u_735()
Application.ScreenUpdating = 0
    For Each c In Range("a1:a199")
    If Len(c) < 13 Then
    c.Cells = c & "юю"
    End If
    Next
End Sub
[/vba]исправил (букву перепутал - блинская расклпдка клавы :))


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 03.03.2017, 20:08
 
Ответить
Сообщение[vba]
Код
Sub u_734()
Application.ScreenUpdating = 0
    For Each c In Range("a1:a199")
    If c = "" Then
    c.Cells = "текст"
    End If
    Next
End Sub
Sub u_735()
Application.ScreenUpdating = 0
    For Each c In Range("a1:a199")
    If Len(c) < 13 Then
    c.Cells = c & "юю"
    End If
    Next
End Sub
[/vba]исправил (букву перепутал - блинская расклпдка клавы :))

Автор - Nic70y
Дата добавления - 03.03.2017 в 19:47
AdwordsDirect Дата: Пятница, 03.03.2017, 20:00 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Pelena, а если ситуация, когда нельзя перемещать, нарушать порядок ячеек?
 
Ответить
СообщениеPelena, а если ситуация, когда нельзя перемещать, нарушать порядок ячеек?

Автор - AdwordsDirect
Дата добавления - 03.03.2017 в 20:00
Pelena Дата: Пятница, 03.03.2017, 20:01 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19511
Репутация: 4620 ±
Замечаний: ±

Excel 365 & Mac Excel
А что мы нарушаем? Фильтр ничего не перемещает


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА что мы нарушаем? Фильтр ничего не перемещает

Автор - Pelena
Дата добавления - 03.03.2017 в 20:01
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!