リストを更新するためのループスルー

Question

セルc1to c5に5つの名前を付けてa1からa50の範囲にする必要があるところに止まっています。

以下は、動作しないコードです。セルC1〜C5の範囲をループする必要があります。つまり、範囲（a5がc5の値で満たされる）を意味し、A6は範囲c1の値を取得する必要があります。 私は明確でないかどうか教えてください。以下は参照

Sub test() 
For x = 2 To 5 
For k = 2 To 50 
Range("a" & k).Value = Range("C" & x).Value 
k = k + 1 
Next 
Next 
End Sub 

Answer 1

のコードは、次のコードを試してみてくださいされています

Sub Test() 
    k = 1 

    For x = 1 To 50 
     Range("a" & x).Value = Range("C" & k).Value 
     k = k + 1 
     If k > 5 Then k = 1 
    Next 
End Sub