从vba中的下拉列表中查找数据的原始地址

，可以通过以下步骤实现：

首先，确保已经创建了一个下拉列表，并将其命名为"DropDownList"。可以使用Excel的数据验证功能来创建下拉列表。
在VBA中，使用以下代码获取下拉列表的选定值：

Dim selectedValue As String
selectedValue = ThisWorkbook.Sheets("Sheet1").Range("DropDownList").Value

这将把选定的值存储在变量selectedValue中。

接下来，可以使用VBA中的查找功能来查找选定值在原始数据中的地址。假设原始数据位于Sheet1的A列，可以使用以下代码：

Dim searchRange As Range
Dim foundCell As Range

Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A:A")
Set foundCell = searchRange.Find(What:=selectedValue, LookIn:=xlValues, LookAt:=xlWhole)

If Not foundCell Is Nothing Then
    MsgBox "找到的地址是：" & foundCell.Address
Else
    MsgBox "未找到匹配的数据。"
End If

这将在A列中查找选定值，并将找到的单元格的地址存储在变量foundCell中。如果找到匹配的数据，将显示一个消息框显示找到的地址；如果未找到匹配的数据，将显示一个消息框提示未找到。

以上是使用VBA从下拉列表中查找数据的原始地址的方法。根据具体的需求和数据结构，可能需要进行适当的调整和修改。