在 Excel 检查两个单元格中的短语，如果在两个单元格中找到任何列出的单词，则需要在另一个单元格中添加该单词。 对整列重复此操作

Question

My excel file will have two sheets Sheet-1: working sheet

Column-A : Keyword to be added from macro
Column-B : phrase=1
Column-C : Phrase=2

Compare the two phrases and based on the keyword list in next sheet, add keyword in Column"A".

Answer 1

Sub Macro5() ' ' 1 Number ' Dim lastrowtofind As Long Range("A8").Activate ActiveCell.FormulaR1C1 = "PFP First Five Description"

lastrowtofind = Sheets(3).Range("A30000").End(xlUp).Row

For k = 9 To lastrowtofind

tofind = Sheets(3).Range("AZ" & k).Value

'Broken-->BROK
If tofind = Empty Then
Else
    If Sheets(3).Range("AX" & k) = Empty Then
    Set rgFound = Sheets(3).Range("AZ" & k).Find("Brok", LookIn:=xlValues)
    If rgFound Is Nothing Then
    Else
    Sheets(3).Range("AX" & k).Value = "BROKEN"
    End If
    End If
End If



'BURNED-->BULB
If tofind = Empty Then
Else
    If Sheets(3).Range("AX" & k) = Empty Then
    Set rgFound = Sheets(3).Range("AZ" & k).Find("BULB", LookIn:=xlValues)
    If rgFound Is Nothing Then
    Else
    Sheets(3).Range("AX" & k).Value = "BURNED"
    End If
    End If
End If

Next k

End Sub