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

Question

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

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

非常感谢！

Answer 1

这与问题完全一样。

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

Answer 2

您可以在Sheet1上的单元格A2中设置公式，如下所示：

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

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

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

Answer 3

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

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

祝你有美好的一天！