excel - 复制范围值和格式

Question

我正在尝试复制单元格 B2:B26来自 sheet1至sheet2 B8:B32与 值和格式如果 sheet 1 发生变化.问题是它似乎循环运行了大约 10 秒。我看不出有什么问题。这是我的代码:

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

Sub Copy_Range()

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

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

Application.CutCopyMode = False

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