Excel 工作表更改事件?带If和索引的VBA

Excel 工作表更改事件?带If和索引的VBA,excel,vba,Excel,Vba,我需要完成以下工作: 捕获列I中的更改,其中,如果该列中的单元格值超过一个数字,则索引/匹配列G中的单元格,并将其剪切并粘贴到T列中,从T13开始。(严格地说,只是单元格的值,而不是公式) 我在G-N列中有公式,它依赖于G列中是否存在一个值。因此,一旦宏被触发从G列中剪切单元格,G-N中的所有行也将被删除 可能这是一个工作表\u更改事件,但它如何检测大量单元格更改并跟踪?也不确定条件和索引。以下是我目前的情况: 子工作表_Change() 选项显式 调光范围 变暗G As范围 设置C=范围(“I

我需要完成以下工作:

  • 捕获列I中的更改,其中,如果该列中的单元格值超过一个数字,则索引/匹配列G中的单元格,并将其剪切并粘贴到T列中,从T13开始。(严格地说,只是单元格的值,而不是公式) 我在G-N列中有公式,它依赖于G列中是否存在一个值。因此,一旦宏被触发从G列中剪切单元格,G-N中的所有行也将被删除

    可能这是一个
    工作表\u更改
    事件,但它如何检测大量单元格更改并跟踪?也不确定条件和索引。以下是我目前的情况:

    子工作表_Change()
    选项显式
    调光范围
    变暗G As范围
    设置C=范围(“I2:I615”)
    设置G=范围(“G2:G615”)
    如果Application.WorksheetFunction.CountIf(C)>(“U5”),则
    rowNum=Application.WorksheetFuntion.Match(G,C,0).CutRange(“U5:U”和Range(“U65536”).End(xlUp).Row)
    如果结束
    下一个
    端接头
    
    如果这是在工作表中的工作表检查事件下,您将要使用
    如果不相交(Target,me.place range here))则为空,则
    语法。希望这将为您指明正确的方向。首先,您不能更改
    工作表\u change
    事件的名称。您可以使用编辑器中的下拉列表使其正确。其次,
    选项Explicit
    位于子例程之上。您可以在这里@Darrell H阅读有关更改事件的信息,该子项刚被称为工作表_change,但我在下拉列表中选择了它。我将检查您可能从下拉列表中选择的“显式信息”选项,但是您编辑掉了括号中的所有信息,这是行不通的。如果阅读该链接,您会发现
    Target
    是确定更改内容的范围。