Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перебор строк и замена содержимого ячейки по условию
 
#1
14.02.2013 11:49:06
Уважаемые форумчане, Добрый день!
Уже час бьюсь а результата - ноль.
Вроде все правильно, но не работает.
Нужно перебрать строки и если в 6 столбце значение ячейки равно 0, то присвоить ей "ttt".
Подскажите плз где туплю )
Код
Sub zamena()Dim i, lastRow As LonglastRow = Cells(Rows.Count, "A").End(xlUp).RowFor i = 2 To i = lastRow    If Cells(Rows(i), 6).Value = "0" Then    Cells(Rows(i), 6).Value = "ttt"    End If    Next iEnd Sub
Изменено: Sergey_85 - 14.02.2013 11:51:29 (не правильное отображение кода)
 
 
 
#2
14.02.2013 11:53:25
Код
Sub zamena()

Dim i, lastRow As Long

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To i = lastRow
    If Cells(Rows(i), 6).Value = "0" Then
    Cells(Rows(i), 6).Value = "ttt"
    End If
    
Next i
End Sub

почему то код в строку вставился
 
 
 
#3
14.02.2013 12:07:10
Если ищем ноль, то почему он в кавычках?
 
 
 
#4
14.02.2013 12:11:04
Пробовал без кавычек. Поставил от безысходности  :)
 
 
 
#5
14.02.2013 12:12:27
Код
If Cells(i, 6)...

и кавычки уберите...
 
 
 
#6
14.02.2013 12:17:00
Код
Sub zamena()

Dim i, lastRow As Long

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To i = lastRow

If trim("" & Cells(Rows(i), 6).Value) = "0" Then

Cells(Rows(i), 6).Value = "ttt"
End If

Next i

End Sub
 
 
 
#7
14.02.2013 12:20:58
Сразу не обратил внимание...
Код
For i = 2 To lastRow
 
 
 
#8
14.02.2013 12:24:01
Вот код целиком:
Код
Sub zamena()
Dim i, lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        If Cells(i, 6).Value = 0 Then
            Cells(i, 6) = "ttt"
        End If
    Next
End Sub
 
 
 
#9
14.02.2013 12:26:34
Цитата
Юрий М пишет:
Код
 If Cells(i, 6)...

и кавычки уберите...
что то все равно не работает :(
 
 
 
#10
14.02.2013 12:29:32
Цитата
Юрий М пишет:
Вот код целиком:
Код
 Sub zamena()
Dim i, lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        If Cells(i, 6).Value = 0 Then
            Cells(i, 6) = "ttt"
        End If
    Next
End Sub
А вот это заработало!
Вот только почему?
 
 
 
#11
14.02.2013 12:31:40
Цитата
Sergey_85 пишет:
А вот это заработало! Вот только почему?
А Вы просто сравните строчки ))
И у Вас в редакторе ничего красным не подсвечивалось?
 
 
 
#12
14.02.2013 12:31:52
Цитата
Юрий М пишет:
Вы последний мой код пробовали?
Да, огромное спасибо  :)
 
 
 
#13
06.03.2020 05:31:01
Можно мне в этой же теме спросить? У меня вопрос примерно такой же, просто условие другое немного. Как сделать так, чтобы макрос заменял в ячейке все буквы, кроме первой на *?
 
 
 
Страницы: 1
Наверх