Question

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

E.G。如果在单元格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

Answer 1

为了检测单元格A1是否包含文字GREG，您可以使用FIND函数：

=FIND("GREG", A1)

这将返回GREG内文字A1的位置。

但是，如果找不到文本，则会返回错误，因此您可以将FIND与ISERROR合并以处理找不到文本时的情况：

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

只需将上述公式放在F1单元格中，然后复制并粘贴到F列中的所有其他单元格，然后您应该看到B1的内容{{1} } {}包含在GREG中，如果没有则包含空白。

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

1 个答案: