Question

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

问题或我的问题是，我想在Sheet（1），Column（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栏中有单词＆＃34; SUM＆＃34;它不应该将表1中的A列复制到表2中的B列。

Answer 1

使用.Find查看是否＆＃39; SUM＆＃39;在Sheet（2）.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

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

1 个答案: