如果 sheet1 上的单元格 A1 包含 X，则将 sheet2 中的 A1 复制到工作表 1 上的单元格 A2答案

【问题标题】：If cell A1 on sheet1 contains X then copy A1 from sheet2 to cell A2 on sheet 1如果 sheet1 上的单元格 A1 包含 X，则将 sheet2 中的 A1 复制到工作表 1 上的单元格 A2
【发布时间】：2016-09-07 00:38:18
【问题描述】：

认为这对每个人都应该是直截了当的。所以正如标题所说，我想知道以下实现的最简单方法：

如果 sheet1 上的单元格 A1 包含 X，则将 sheet2 中的 A1 复制到 sheet 1 上的单元格 A2

非常感谢！

【问题讨论】：

使用宏记录器或向我们展示您已经尝试过的内容。这不是代码编写服务。

标签： vba excel

【解决方案1】：

您可以像这样在 Sheet1 的 A2 单元格中设置公式：

=IF(ISNUMBER(SEARCH("X", A1)), Sheet2!A1, "NOT FOUND")

将“X”更改为您想要的文本。

SEARCH 将在单元格 A1 中查找文本“X”，ISNUMBER 将检查 SEARCH 是否返回了在单元格中找到文本的索引。如果没有找到，它会打印“NOT FOUND”

【讨论】：

【解决方案2】：

如果您正在寻找一个宏，我假设这就是您的要求。

Sub Test
    IF Sheet1.Range("A1").value = "X" then Sheet1.Range("A2").value = Sheet2.Range("A1").value
End sub

祝你有美好的一天！

【讨论】：

非常感谢 Ricky 的代码以及它也可以工作，但我只能将 1 标记为解决方案，所以勾选第一个回答 :)。你也有美好的一天！

【解决方案3】：

这完全符合问题的要求。

Sub copyStuff()

If Sheets("Sheet1").Range("A1") = "X" Then
Sheets("Sheet1").Range("A2") = Sheets("Sheet2").Range("A1")
End If
MsgBox "Next time I will provide an example"

End Sub

【讨论】：