excel - 更新工作表，但只有 A:G 列

Question

我得到了以下代码的帮助，以从源表中的 A、C:G 和 J 列中获取数据，并将其放入目标表中的 A 到 G 列，具体取决于该行中的第 24 列（X）。一切正常，我的目标工作表使用源工作表中的正确信息进行更新，但是它也会删除 G 列之后的所有数据。例如，如果我在下一次返回目标工作表时在目标工作表的 J 列中键入 100时间已经过去了。我想将我在列中的数据保留在 G 列之后。

如何阻止下面的代码删除 G 列之后的列中的数据？我尝试了几件事，但我的 excel 很合适，因为我认为我正在创建一个循环。

非常感谢任何帮助。

Private Sub Worksheet_Activate()

    Dim Source As Worksheet: Set Source = Sheets("From")
    Dim Target As Worksheet: Set Target = Sheets("To")

    Application.ScreenUpdating = False

    Target.UsedRange.Offset(1).Clear

    With Source.[A1].CurrentRegion
            .AutoFilter 24, 1
            Union(.Columns("A"), .Columns("C:G"), .Columns("J")).Offset(1).Copy
            Target.Columns("A:G").End(3)(2).PasteSpecial xlValues
            .AutoFilter
    End With

    Application.CutCopyMode = False
    Application.ScreenUpdating = True

  End Sub

标签： excelvba