EXCEL VBA Instr関数の使い方と活用例（対象文字検索・何番目・文字列を置き換える・該当データを転記）

EXCEL VBA Instr関数の使い方と活用例（対象文字検索・何番目・文字列を置き換える・該当データを転記）

EXCEL VBA Instr関数の使い方と活用例　（指定した対象文字列から特定の文字列を探す・何番目）

'
'
Sub InstrExample1()
    ' 検索対象の文字列と検索文字列を定義
    Dim targetString As String
    Dim searchString As String
    Dim position As Integer

    targetString = "ようこそAKIRA55へExcel VBA Instr関数を説明します。"
    searchString = "VBA"

    ' InStr関数を使って検索文字列の位置を取得
    position = InStr(targetString, searchString)

    ' 取得した位置が0より大きい場合（見つかった場合）
    If position > 0 Then
        ' メッセージボックスに位置情報を表示
        MsgBox searchString & " が見つかりました。位置: " & position
    Else
        ' メッセージボックスに見つからなかった旨を表示
        MsgBox searchString & " が見つかりませんでした。"
    End If
End Sub
'

EXCEL VBA Instr関数の使い方と活用例　（検索・該当したデータを別シートに転記します。）

'
'
Sub SearchAndCopy01()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim searchStr As String
    Dim lastRow As Long
    Dim srcRow As Long
    Dim dataArr As Variant
    Dim outputArr() As Variant
    Dim outputIndex As Long

    ' 入力データのシートと出力先のシートを設定
    Set wsSource = ThisWorkbook.Worksheets("データシート")
    Set wsTarget = ThisWorkbook.Worksheets("結果シート")

    ' 検索したい部分文字列を設定
    searchStr = wsSource.Range("F2") '検索文字を指定
    
    ' 結果シートの最終行を取得
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    ' 結果シートをクリアします。
    wsTarget.Range("A2:C" & lastRow + 1).ClearContents
    ' データシートの最終行を取得
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row

    ' セルの値を一度に取得し、配列に格納
    dataArr = wsSource.Range("A2:C" & lastRow).Value

    ' 出力用の配列を初期化
    ReDim outputArr(1 To lastRow - 1, 1 To 3)

    ' 配列に出力データを格納
    outputIndex = 1
    For srcRow = 1 To lastRow - 1
        If InStr(dataArr(srcRow, 2), searchStr) > 0 Then 'B列の住所データの中から該当する文字列を探します。
            outputArr(outputIndex, 1) = dataArr(srcRow, 1) '該当したデータを行のA列～C列データを配列に保管します。
            outputArr(outputIndex, 2) = dataArr(srcRow, 2)
            outputArr(outputIndex, 3) = dataArr(srcRow, 3)
            outputIndex = outputIndex + 1
        End If
    Next srcRow


    ' スクリーン更新をオフにする
    Application.ScreenUpdating = False

    ' 結果シートに一度に出力データを書き込む（見つかった行が1行以上ある場合）
    If outputIndex > 1 Then
        wsTarget.Range("A2:C" & outputIndex).Value = outputArr
    End If

    ' スクリーン更新をオンに戻す
    Application.ScreenUpdating = True
    ' 結果シートを表示する
    wsTarget.Activate
    ' 結果シートにメッセージを表示
    If outputIndex > 1 Then
            MsgBox "検索が完了しました。" & outputIndex - 1 & "件データが転記されました。"
         Else
            MsgBox "検索結果、該当データがありませんでした。"
    End If

End Sub
'

EXCEL VBA Instr関数の使い方と活用例　（複数の文字列を置き換える・結果を別シートに転記する）

Option Explicit

'
'
Sub ReplaceCellsContainingString01()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim wsReplace As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim replaceLastRow As Long
    Dim row As Long
    Dim col As Long
    Dim replaceRow As Long
    Dim searchStr As String
    Dim replaceStr As String

    ' 入力データのシート、出力先のシート、置換用シートを設定
    Set wsSource = ThisWorkbook.Worksheets("データシート")
    Set wsTarget = ThisWorkbook.Worksheets("結果シート")
    Set wsReplace = ThisWorkbook.Worksheets("置換用シート")

    ' データシートのデータを結果シートにコピー
    wsSource.UsedRange.Copy wsTarget.Cells(1, 1)

    ' データシートの最終行と最終列を取得
    lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).row
    lastCol = wsTarget.Cells(1, wsTarget.Columns.Count).End(xlToLeft).Column

    ' 置換用シートの最終行を取得
    replaceLastRow = wsReplace.Cells(wsReplace.Rows.Count, "A").End(xlUp).row

    ' スクリーン更新をオフにする
    Application.ScreenUpdating = False

    ' 置換用シートの検索文字と置換文字をループで処理
    For replaceRow = 2 To replaceLastRow
        searchStr = wsReplace.Cells(replaceRow, 1).Value
        replaceStr = wsReplace.Cells(replaceRow, 2).Value

        ' 結果シート内の特定の文字列を含むセルを検索し、置換文字列で置き換える
        For row = 1 To lastRow
            For col = 1 To lastCol
                If InStr(wsTarget.Cells(row, col).Value, searchStr) > 0 Then
                    wsTarget.Cells(row, col).Value = Replace(wsTarget.Cells(row, col).Value, searchStr, replaceStr)
                End If
            Next col
        Next row
    Next replaceRow

    ' スクリーン更新をオンに戻す
    Application.ScreenUpdating = True
    '置換用シートを表示
    wsTarget.Activate

    ' 結果メッセージを表示
    MsgBox "指定された文字列が置換されました。"

End Sub
'
'