VBA学習ツール無料配布！#35 テーマ:vbaでセルを切り取り＆貼り付けをしよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim firstCell As Range
    Dim secondCell As Range
    Dim cutCell As Range
    Dim pasteCell As Range
    ' 「書き込みシート」をアクティベートする
    Set ws = ThisWorkbook.Worksheets("書き込みシート")
    ws.Activate
    ' セル「場所①」と「場所②」の下のセルを指定する
    Set firstCell = ws.Cells(6, 2)
    Set secondCell = ws.Cells(10, 2)
    ' 「切り取りセル」と「貼り付けセル」の決定
    If firstCell.Value = "データ" Then
        Set cutCell = firstCell
        Set pasteCell = secondCell
    ElseIf secondCell.Value = "データ" Then
        Set cutCell = secondCell
        Set pasteCell = firstCell
    End If
    ' 切り取り, 貼り付け実行
    cutCell.Cut Destination:=pasteCell
    ' 切り取り完了メッセージを表示
    MsgBox "切り取り&貼り付け完了！", vbInformation
End Sub