查找和替换

Question

我想编写一个公式，以宏或条件格式

执行以下操作

细胞A＆amp; B都有值

我想说：

如果B =是，则将A列中的现有文本替换为是，并将其他值保留在A列中。

Answer 1

For i=0 To Worksheets("sheet 1").Cells(Rows.Count).End(xlUp).Row    
    If Worksheets("sheet 1").Range("B" & i). Value = "Yes" Then
        Worksheets("Sheet").Range("A" & i).Value = "Yes"
    End If
End For