如果另一个单元格具有特定值

Question

我试过谷歌，但由于我对VBA缺乏经验，我似乎无法得到正确的答案。

我试图通过单击按钮将第3行复制到同一工作表上更深层的表格的最后一行。更具体地说，第一个数据将进入B13:O13

点击按钮后，将发生以下情况。从B3到D3的数据将转到B13到D13。来自E3，F3，G3，H3和E的数据。 I3将合并到E13中。从H3到N3的数据将转到J13到N13。到目前为止，我能够在this link

的网站上找到答案

然而，问题在于O13，我只想在O13中复制数据，如果C3有文字＆＃34;公司＆＃34;在它（没有引号）。如果O13除了＆＃34;公司＆＃34;以外，我只想要复制B3到N3列。

不幸的是，为了实现这一目的，表格本身的条件格式化不起作用，因为O3根据B3是否说明＆＃34;公司＆＃34;或者，一旦将O3复制到表格的最后一行，它将覆盖我可能具有的填充颜色的任何条件格式。

非常感谢这方面的任何帮助。

请帮我创建O3的条件代码。这是我到目前为止用于将B3复制到N3的代码，我在模块部分发布了这些代码：

选项明确

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

定义要处理的工作表，即将Sheet1替换为工作表的名称

Set ws = ActiveWorkbook.Sheets("1. Clients Details")

确定包含A列内容的最后一行并添加一个

lRow = ws.Cells(Rows.count, "B").End(xlUp).Row + 1

将一些细胞复制到其范围

ws.Range("B3:D3").Copy ws.Range("B" & lRow)
ws.[B1].Select

将E3，F3，G3，H3和I3组合并复制到E列，下一个空行

ws.Range("E" & lRow) = ws.[E3] & " " & ws.[F3] & " " & ws.[G3] & ", " & ws.[H3] & " " & ws.[I3]

将其他单元格复制到其范围

ws.Range("J3:N3").Copy ws.Range("J" & lRow)
ws.[J1].Select

End Sub

Answer 1

这是你的支票：

if Worksheets("yourWorksheet").Range("C3").Value like "*""Company""*" then
    'do something
else
    'do something else
end if