Уважаемые форумчане, Добрый день! Уже час бьюсь а результата - ноль. Вроде все правильно, но не работает. Нужно перебрать строки и если в 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
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
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
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
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
Можно мне в этой же теме спросить? У меня вопрос примерно такой же, просто условие другое немного. Как сделать так, чтобы макрос заменял в ячейке все буквы, кроме первой на *?