Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос: функция Range.Replace, задать условие поиска
 
#1
16.03.2020 18:40:34
Добрый вечер, Форумчани!
Прошу Вас помочь, нужен макрос, которые заменял все встречающие цифры в активном листе на нуль, а текстовые  оставил бы как есть.
заранее благодарю!
я такой записал, но мне не нравится

Код
Sub Ìàêðîñ2()
Cells.Select
    Selection.Replace What:="1*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="2*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="3*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="4*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="5*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="6*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="7*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="8*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="9*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub
Изменено: azma - 16.03.2020 19:06:14
 
 
 
#2
16.03.2020 19:10:10
Без файла примера только так
Код
Sub dd()
    On Error Resume Next
    ActiveSheet.UsedRange.SpecialCells(2, 1) = 0
End Sub
 
 
 
#3
16.03.2020 19:21:30
Спасибо, то что нужно!
 
 
 
#4
16.03.2020 23:02:44
Из названия темы не ясна суть вопроса. Да и сам вопрос непонятен.
Что делать с такими данными в ячейке:
1. 123абв
2. абв124
3. 0000
4. 0.5
5. 0,5
6. 1 000
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
#5
16.03.2020 23:09:03
Алгоритм от Андрей Лящук, всю ячейку обнулит в случае 5 (разделитель дробной части запятая). Причем с запятой. Вопрос же по цифрам. Или ТС путает цифры с числами. Но тогда что делать с числами, сохраненными как текст?
«Бритва Оккама» или «Принцип Калашникова»?
 
 
 
Страницы: 1
Наверх