Sub 転記データ作成()
Dim i As Integer
'関数の挿入
'=A*を挿入していく
For i = 1 To 14
j = i
Cells(i, 3).Formula = "=" & "A" & j
Next
'値貼り付けのコピー
For i = 1 To 12
j = i
Range("C" & i).Value = Range("C" & i).Value
Next
End Sub
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme