Excel 如何使用公式/脚本复制和移动电子表格中的数据

我在excel中使用此代码来移动数据

例如，如果在单元格A1中出现“Greg”一词，则B1中的数据将移动到F1

我需要知道如何在电子表格中做到这一点

谢谢你的帮助

干杯

下面是VBA版本

Private Sub Worksheet_Change(ByVal Target As Range)
'   Check to see if a value in your pre-determined range is being changed
    If Not Intersect(Target, Range("A1:A5000")) Is Nothing Then
'       Check to see if "Greg" is one of the words being entered into the cell
        If InStr(Target, "Greg") > 0 Then
'           If so, then move entry from column B in that same row to column F
            Cells(Target.Row, "F") = Cells(Target.Row, "B")
            Cells(Target.Row, "B").ClearContents
        End If
    End If
End Sub

---

要检测单元格

A1

是否包含文本

GREG

，可以使用

FIND

功能：

=FIND("GREG", A1)

这将返回文本

GREG

在

A1

中的位置

但是，如果找不到文本，它将返回一个错误，因此您可以将

FIND

与

ISERROR

组合起来处理找不到文本的情况：

=IF(ISERROR(FIND("GREG", A1))=TRUE,"",B1)

---

只需将上述公式放在您的

F1

单元格中，复制并粘贴到

F

列中的所有其他单元格中，您就会看到

B1

的内容，其中

GREG

包含在

A1

中，如果没有，则为空。

我可以推荐

SEARCH

代替

FIND

FIND

区分大小写，如果单元格中有问题中提到的“Greg”，则无法使用。谢谢，但我如何向同一公式中添加其他名称，如James、Kev Dave等