將特定單元格數據復制到其他工作表的列中

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”，我沒有明白這是給你的錯誤。