所以我得到了这段代码，将单元格从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
对于完成的工作表“ 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只是实现此目的的便捷方法。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句