複数のセルを1つの場所に別々に入力する方法は？

Question

初めての投稿です。私はExcelでマクロ機能を使うのも初めてです。

私は、資産IDを入力すると複数年の償却を計算するセル（C1）を持っています。資産IDはすべてC12：C3981からリストされます。私はC12にリストされたアセットIDを取得し、C1に置き、範囲をコピーしてJ12（またはC1に配置されたC資産のJ列）に配置する方法を見つけることを試みています。手動で行うコードがありますが、Cの値を入力する必要があります。とにかくC12からC3981までを選択し、それらのJ値をコピーして自動的にペーストしてC1に入力させますか？

これは私が今使っているもので、かなり面倒です。

Range("C1").Value = "=C14" 
Range("J10:AA10").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.Copy 
Range("J14").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 

Range("C1").Value = "=C15" 
Range("J10:AA10").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Selection.Copy 
Range("J15").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 

ご協力いただければ幸いです。

ありがとうございます！

Answer 1

これはトリック（私はそれをテスト）が行われます。

For idx = 12 To 3981 
    Range("C1").Value = "=C" & CStr(idx) 
    Range("J10:AA10").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.Copy 
    Range("J" & CStr(idx)).Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
    Application.CutCopyMode = False 
Next idx