Question

下面是我现在得到的代码。我将对其进行修改以将范围复制到工作簿中的新工作表中。我想扩展宏，以便在制作新副本时删除先前的副本/粘贴。这很关键，因为我的用户将反复执行此宏。

这是我第一次尝试设置此过程。宏将顺利执行。

代码：

Sub DynamicRange()
    Dim Start As Range, LastRow As Long, ws As Worksheet
    Set ws = Sheet3
    With ws
        Set Start = Range("A1")
        LastRow = ws.Cells(ws.Rows.Count, Start.Column).End(xlUp).Row
        ws.Range(Start, ws.Cells(LastRow, "C")).Select
        ws.Range(Start, ws.Cells(LastRow, "C")).Copy
        Set ws = ThisWorkbook.Sheets.Add(After:= _
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "sheet3"
        ws.Range("A1").PasteSpecial xlPasteAll
     End With
    ws.Activate
End Sub

Answer 1

也许再添加一个范围变量，用于定义当前数据的范围。然后只需清除该范围，然后再继续其他代码？

复制和粘贴动态范围并防止重复操作

1 个答案: