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

Question

我在一个工作簿中有两个工作表，名为“每月”和“索引”。

在索引中，单元格 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”，我没有明白这是给你的错误。