如何在VBA中使用关键字过滤多个数据？

Sub FilterDataByKeyword()
    Dim dataRange As Range
    Dim filterKeyword As String
    Dim filteredData() As Variant
    Dim filteredCount As Long
    Dim cell As Range
    
    ' 设置数据范围和关键字
    Set dataRange = Range("A1:A10")
    filterKeyword = "关键字"
    
    ' 初始化过滤结果数组
    ReDim filteredData(1 To dataRange.Rows.Count)
    filteredCount = 0
    
    ' 遍历数据集合
    For Each cell In dataRange
        ' 判断数据是否包含关键字
        If InStr(1, cell.Value, filterKeyword, vbTextCompare) > 0 Then
            ' 如果包含关键字，则将其添加到过滤结果数组中
            filteredCount = filteredCount + 1
            filteredData(filteredCount) = cell.Value
        End If
    Next cell
    
    ' 输出过滤结果到另一个区域
    Range("B1").Resize(filteredCount).Value = Application.Transpose(filteredData)
End Sub