excel - 复制粘贴到 Excel 中的新工作表

Question

所以我得到了这个代码，它将单元格从 C4 复制到 C10 并粘贴它们。问题是它粘贴到同一个工作表，我需要将它粘贴到第二个工作表。

我不知道如何更改代码中的工作表，所以我希望有人可以帮助我。

这是代码：

Sub Save_Click()
Range("C4:C10").Copy
Dim curRange As Range
Dim curCol As Integer: curCol = 7
Dim completed As Boolean: completed = False
Do
    curCol = curCol + 1
    Set curRange = Range(Cells(3, curCol), Cells(9, curCol))


If (WorksheetFunction.CountA(curRange) = 0) Then
   Exit Do
End If
Loop While (Not completed)

curRange.PasteSpecial
End Sub

Answer 1

对于工作表“Iskalnik”，正如您所做的那样，使用：

Sheets("Iskalnik").Range("C4:C10").Copy

对于工作表“Baza”，而不是这个：

Set curRange = Sheets("Baza").Range(Cells(3, curCol), Cells(9, curCol))

用这个：

With Worksheets("Baza")
    Set curRange = .Range(.Cells(3, curCol), .Cells(9, curCol))
End With

curRange 的问题是RangeandCells关键字都需要引用工作表。这With ... End With只是一种方便的方法。