Измените все ячейки в столбце, если найдено слово

Question

У меня есть рабочий лист с 6 столбцами. Я хочу совместить слово в столбце E, и если он находится в любой ячейке в этом столбце, тогда замените весь столбец на это слово.

Sub Macro8() 
    Columns("E:E").Select 
    If Columns("E:E").Select = "dog" Then Entire.Columns("E:E").Select = "dog" 
End Sub 

Answer 1

Как я уже говорил в комментариях выше, используйте Worksheet_Change событие. Однако, если вы хотите запустить подпрограмму в своем удобстве, используйте этот код

Sub Sample() 
    Dim ws As Worksheet 
    Dim lRow As Long 

    '~~> Change this to the relevant sheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     '~~> Find Lastrow in Col E which has data 
     lRow = .Range("E" & .Rows.Count).End(xlUp).Row 

     '~~> Use Countif to check for an occurance of Dog in Col E 
     If Application.WorksheetFunction.CountIf(.Columns(5), "Dog") _ 
     Then .Range("E1:E" & lRow).Value = "Dog" 
    End With 
End Sub