请求编写Excel宏：含单元格查找复制及LIKE函数条件赋值逻辑

一、工作表公式方案 #

如果要在目标单元格（比如C9）直接实现逻辑判断，可使用以下公式：

=IF(AND(A9="GBP",ISNUMBER(SEARCH("GERMANY",B9))),"GERMANY","")

• 细节说明：
  • SEARCH("GERMANY",B9)：检测B9是否包含"GERMANY"，不区分大小写；如果需要严格区分大小写，替换为FIND("GERMANY",B9)
  • AND(A9="GBP",...)：确保同时满足A9精确等于"GBP"的条件
  • 满足所有条件时返回"GERMANY"，不满足则返回空值（可根据需求修改为空值以外的内容）

二、VBA宏方案 #

如果需要通过宏批量执行或触发该逻辑，可使用以下VBA代码：

Sub SetGermanyValue()
    ' 检查A9是否为GBP，且B9包含GERMANY
    If Range("A9").Value = "GBP" And Range("B9").Value Like "*GERMANY*" Then
        ' 将结果写入目标单元格（这里以C9为例，可自行修改）
        Range("C9").Value = "GERMANY"
    Else
        ' 不满足条件时的操作，这里设置为空值，可按需调整
        Range("C9").Value = ""
    End If
End Sub

• 使用步骤：
  1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
  2. 右键点击当前工作簿，选择「插入」→「模块」
  3. 将上述代码粘贴到模块窗口中
  4. 按下F5运行宏，或绑定到工作表按钮方便快速触发

内容的提问来源于stack exchange，提问作者Yaz Faaz