Excel从一列到另一列复制值，但删除特定文本

Question

嗨，我正在使用此代码从Sheet（1）列A的值复制到Sheet（2）列B的功能。它工作正常，每当更新A列中的值时，B列也将更新。

问题或我的问题是，我想在Sheet（1）的列（B）中再增加一列。 B列仅包含不同的名称，并且不被复制

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
        Range("A1:A50").Copy Sheets(2).Range("B1")
    End If

End Sub

但是，如果列B中包含单词“ SUM”，则不应将工作表1中的列A复制到工作表2中的列B。

Answer 1

使用.Find查看工作表（2）中是否存在'SUM'.Col（b）

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng as Range

  If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
    set rng = Sheets(2).Range("B:B").find What:="SUM", LookIn:=xlFormulas, _
              LookAt:=xlPart, MatchCase:=False
    if rng is nothing then
      Range("A1:A50").Copy Sheets(2).Range("B1")
    end if
    set rng = nothing
  End If

End Sub