セルの切り取り貼り付けをしたい

質問

windows10 excel.365solo使用の超初心者です。
図のようにセルの切り取り貼り付けを最後のセルまでやりたいのですが、やり方がわかりません。コードを教えていただきたいです。
sub 名前移動（）
Dim i As integer
For i=1 To 50
Range("C5").Cut
Range("B6").Select
ActiveSheet.Paste
next
end sub

回答No.1

kkkkkm · ベストアンサー

以下の方法でいかがですか。

Sub 名前移動()
Dim i As Long

For i = 5 To Cells(Rows.Count, "C").End(xlUp).Row Step 3
Cells(i, "C").Cut Destination:=Cells(i + 1, "B")
Next
Application.CutCopyMode = False
End Sub

お礼

ありがとうございました。思っていることが完璧にできました。いつもご教示あありがとうございます。

回答No.2

SI299792

これならば、B7:B列の最後より１つ下を洗濯、コピー。
形式を選択して磔、値でいいのではないですか。
VBA でやるなら、
Option Explicit

Sub Macro1()
　　Dim REnd As Long
'
　　REnd = Cells(Rows.Count, "B").End(xlUp).Row
　　Range("B6:B" & REnd) = Range("B7:B" & REnd + 1).Value
End Sub

お礼

素早いご回答ありがとうございました。