VBAを活用した特定文字の抽出と活用例3つ

Sub HighlightCells()
    Dim cell As Range
    For Each cell In Selection
        If InStr(cell.Value, "特定の文字列") > 0 Then
            cell.Interior.Color = vbYellow
        End If
    Next cell
End Sub

Sub CopyMatchingData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim matchRow As Long
    Set sourceSheet = ThisWorkbook.Sheets("元のシート名")
    Set targetSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    targetSheet.Name = "抽出データ"
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    matchRow = 1
    For i = 1 To lastRow
        If sourceSheet.Cells(i, 1).Value = "特定の条件" Then
            sourceSheet.Rows(i).Copy Destination:=targetSheet.Rows(matchRow)
            matchRow = matchRow + 1
        End If
    Next i
End Sub

Sub CategorizeData()
    Dim cell As Range
    Dim categoryRange As Range
    Set categoryRange = ThisWorkbook.Sheets("カテゴリシート").Range("A1:A10") ' カテゴリを列挙した範囲
    For Each cell In Selection
        For Each cat In categoryRange
            If InStr(cell.Value, cat.Value) > 0 Then
                cell.Offset(0, 1).Value = cat.Value
                Exit For
            End If
        Next cat
    Next cell
End Sub