입력된 셀 값을 받아서 재 입력하기

'입력된 셀 값을 받아서 재 입력하기

Sub B_S()

Dim col As Long
Dim i As Long
Dim a() As Long

ReDim a(1 To 11)
col = 1

For i = 1 To 11

    a(i) = Sheet1.Cells(i, col).Value
    Range("C1").Cells(i, col) = a(i)
       
Next

End Sub