使用EXCELVBA写一个自定义函数，比如查询嘟嘟，然后返回嘟嘟的多个结果在不同的单元格，数据如嘟嘟 1号 嘟嘟 2号 嘟嘟 3号，查询嘟嘟，然后返回1号 2号 3号 在不同的单元格

下面是一个示例的VBA代码，用于在Excel中实现查询嘟嘟并返回结果到不同的单元格：

Function QueryDudu() As Variant
    Dim resultArray() As Variant
    Dim searchValue As String
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    
    ' 设置查询的值
    searchValue = "嘟嘟"
    
    ' 设置查询的范围，这里假设数据在A列
    Set rng = Range("A1:A10")
    
    ' 遍历范围，找到匹配的值并存储到结果数组中
    For Each cell In rng
        If cell.Value = searchValue Then
            ReDim Preserve resultArray(i)
            resultArray(i) = cell.Offset(0, 1).Value ' 将匹配单元格右侧的值存储到结果数组中
            i = i + 1
        End If
    Next cell
    
    ' 将结果数组输出到不同的单元格
    For i = 1 To UBound(resultArray) + 1
        Cells(i, 2).Value = resultArray(i - 1)
    Next i
    
    ' 返回结果数组
    QueryDudu = resultArray
End Function

使用这个自定义函数时，你可以在Excel中的一个单元格中输入 `=QueryDudu()`，然后按下回车键执行函数。该函数会在相邻的B列中返回查询到的结果。请确保在执行函数之前将数据放置在A列中。

这样，你就可以使用自定义函数查询嘟嘟并将结果返回到不同的单元格了。