将特定的单元格数据复制到其他工作表的列中

Question

我正在处理一个工作表，其中一个工作簿中有2个工作表，分别命名为“每月”和“索引” 在索引表中，单元格A1经过一些计算后将具有一些值。 我需要将值复制并粘贴到“月”列“ J”中。 使用下一行编码应一一对应

请帮助

Private Sub CommandButton2_Click()    
Dim i As Integer    
a = Worksheets("Monthly").Cells(Rows.Count, 1).End(xlUp).Row   
For i = 2 To a    

Range("K" & i).Copy Worksheets("Rule of 78").Range("D6")       
'Range("A1").Offset(i - 1, 0).Copy Range("C1")    
Range("I" & i).Copy Worksheets("Rule of 78").Range("D7")    
Range("E" & i).Copy Worksheets("Rule of 78").Range("D8")    
Range("A" & i).Copy Worksheets("Rule of 78").Range("D10")    
Worksheets("Index").Range("C2").Copy " How to paste in Monthly sheet 
column J, for every row, C2 is different"
Next i    

End Sub

Answer 1

“ A1”有公式吗？如果是这样，Excel可能正在复制一个公式，从而导致错误。

尝试：

Worksheets("Index").Range("A1").Copy
Worksheets("Monthly").Range("J" & i).PasteSpecial xlPasteValues

编辑：“ A1”或“ C2”，我没有发现错误。