वीबीए का उपयोग करके विशेष वर्णों की निकासी और उपयोग के तीन उदाहरण

Sub CellsHighlight()
    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 DataExtract()
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim LastRow As Long
    Dim MatchingRow 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
    MatchingRow = 1
    For i = 1 To LastRow
        If SourceSheet.Cells(i, 1).Value = "निश्चित मापदंड" Then
            SourceSheet.Rows(i).Copy Destination:=TargetSheet.Rows(MatchingRow)
            MatchingRow = MatchingRow + 1
        End If
    Next i
End Sub

Sub DataClassify()
    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