VBA学習ツール無料配布！#26 テーマ:vbaでセルの値を削除しよう！

Option Explicit

Sub correctAnswerExample()
    Dim readWs As Worksheet
    Dim targetCell As Range
    Dim targetStr As String
    Dim delFlg As Boolean
    ' シート「読み込みシート」を設定
    Set readWs = ThisWorkbook.Worksheets("読み込みシート")
    ' シート「読み込みシート」をアクティベートする
    readWs.Activate
    ' 「読み込みセル」を設定
    Set targetCell = readWs.Cells(6, 2)
    ' 「読み込みセル」内の文字列を取得
    targetStr = targetCell.Value
    ' 「読み込みセル」内の文字列が「消す情報」だった場合
    If targetStr = "消す情報" Then
        ' 「読み込みセル」内の文字列を削除する
        targetCell.ClearContents
        delFlg = True
    End If
    If delFlg Then
        MsgBox "削除する必要がある情報が記載されていた為, 削除しました。", vbCritical
    Else
        MsgBox "削除する必要がある情報は無かった為 , 削除していません｡", vbInformation
    End If
End Sub