Question

我尝试将B2:B26中的单元格sheet1复制到sheet2 B8:B32，如果{{ 1}}。问题是它似乎在循环中运行了大约10秒钟。我看不出有什么问题。这是我的代码：

sheet 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Copy_Range
End Sub

Answer 1

您需要禁用事件。另外，我强烈建议您限制Worksheet_SelectionChange的范围。您是否真的要进行任何更改来触发宏？也许您正在寻找特定区域内的变化。如果是这样，请指定该区域，并在选择更改与指定区域重叠（Intersects）时运行宏。

Sub Copy_Range()

Application.EnableEvents = False <--- Off

Sheets("liste d'élèves").Range("B2:B26").Copy

With Sheets("Feuil1").Range("B8:B32").End(xlToLeft).Offset(, 1)
    .PasteSpecial xlPasteAll
End With

Application.EnableEvents = True <--- On

End Sub

复制范围值和格式

1 个答案: