Excel 查找并替换

Excel 查找并替换,excel,filter,find-replace,vba,Excel,Filter,Find Replace,Vba,我想编写一个公式,以宏格式或条件格式执行以下操作 单元格A和B都有值 我想说: 如果B=是,则将A列中的现有文本替换为是,并保留A列中的其他值不变 这个公式行不通。我写了这篇文章,但它仍然没有替换.Sub-Vendor()Dim i,只要i=5到工作表(“现代化”).Cells(Rows.Count).End(xlUp).Row If Cells(i,“CP”).Text=“Synergy”然后Cells(i,“CO”).Text=“Synergy”End If Next ActiveWorkb

我想编写一个公式,以宏格式或条件格式执行以下操作

单元格A和B都有值

我想说:

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


这个公式行不通。我写了这篇文章,但它仍然没有替换.Sub-Vendor()Dim i,只要i=5到工作表(“现代化”).Cells(Rows.Count).End(xlUp).Row If Cells(i,“CP”).Text=“Synergy”然后Cells(i,“CO”).Text=“Synergy”End If Next ActiveWorkbook.Save EndSub@Rodrigo虽然这可能有助于行动,只发布代码答案而不解释任何内容是一种糟糕的做法。因此,提供一些上下文总是一个好主意,以便更多的读者可以从中学习顺便说一句,用
0
开始行计数无法工作,因为Excel总是以行
1
@sara开始,正如您在注释中看到的代码一样,这是非常不可读的。因此,请始终在原始问题中包含代码。请理解堆栈溢出不是免费的代码编写服务。因此,请回答您的问题并添加您已有的代码,或者展示您为实现目标所做的研究。做一次调查和阅读可能有助于改进你的问题。
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