为什么这个宏会复制多次？

Question

我找到了这个宏，它完成了我需要它做的事情，但是每当它被激活时，它似乎会多次复制/粘贴数据。我的主列表应该只有 75 行左右，而当它运行时，它会以 268 行结束。为什么要这样做？另外，有没有办法编辑它，所以如果工作表在“A1”之后没有数据，它不会复制该工作表？

Option Explicit

Private Sub Worksheet_Activate()

'Merge all sheets in a workbook into one summary sheet (stacked)
Dim cs As Worksheet, ws As Worksheet, LR As Long, NR As Long

Application.ScreenUpdating = False

Set cs = Sheets("Master List")
cs.Activate
Range("A2:F" & Rows.Count).ClearContents

For Each ws In Worksheets
    If ws.Name <> "Master List" Then
        NR = cs.Range("A" & Rows.Count).End(xlUp).Row + 1
        LR = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.Range("A2:F" & LR).copy cs.Range("A" & NR)
    End If
Next ws

Application.ScreenUpdating = True

End Sub

Answer 1

您在工作簿的 Private Sub Worksheet_Activate() 事件中有此内容。如果这被写入“主列表”工作表的代码中，那么像使用cs.activate 行一样激活工作表将再次触发宏……当前正在运行的宏。很难说为什么这只会创建 268 而不是无限的，或者是双倍的……这很难说，可能取决于 excel 的工作速度，它是单线程或 Excel 和 VBA 的其他一些深层次的黑暗之谜。

代替

cs.activate
range("a2:f" & rows.count).clearcontents

试试

cs.range("a2.f" & rows.count).clearcontents

如果你发现自己在你的 vba 代码中写了 .activate 或 .select，那么你可能做的不太好。