问With Range("Table1(" & SearchColumn & ")")？

Private Sub SearchBtn_Click()

Dim SearchTerm As String

Dim SearchColumn As String

Dim RecordRange As Range

Dim FirstAddress As String

Dim FirstCell As Range

Dim RowCount As Integer

' 如果没有数据项输入则显示错误

If FName.Value = "" And LName.Value = "" And Location.Value = "" And Department.Value = "" Then

MsgBox "没有指定搜索项", vbCritical + vbOKOnly

Exit Sub

End If

' 找出要搜索的内容

If FName.Value <> "" Then

SearchTerm = FName.Value

SearchColumn = "姓名"

End If

If LName.Value <> "" Then

SearchTerm = LName.Value

SearchColumn = "性别"

End If

If Location.Value <> "" Then

SearchTerm = Location.Value

SearchColumn = "城市"

End If

If Department.Value <> "" Then

SearchTerm = Department.Value

SearchColumn = "部门"

End If

Results.Clear

' 仅在相关表格列中搜索，即如果某人正在搜索位置，则仅在位置列中搜索

With Range("Table1(" & SearchColumn & ")")

' 查找第一个匹配项

Set RecordRange = .Find(SearchTerm, LookIn:=xlValues)

' 如果已找到匹配项

If Not RecordRange Is Nothing Then

FirstAddress = RecordRange.Address

RowCount = 0

Do

' 设置匹配值行中的第一个单元格

Set FirstCell = Range("A" & RecordRange.Row)

' 添加匹配记录到列表框

Results.AddItem

Results.List(RowCount, 0) = FirstCell(1, 1)

Results.List(RowCount, 1) = FirstCell(1, 2)

Results.List(RowCount, 2) = FirstCell(1, 3)

Results.List(RowCount, 3) = FirstCell(1, 4)

RowCount = RowCount + 1

' 查找下一个匹配项

Set RecordRange = .FindNext(RecordRange)

' 当不再找得到匹配项时, 退出过程

If RecordRange Is Nothing Then

Exit Sub

End If

' 在找到唯一匹配项时继续查找

Loop While RecordRange.Address <> FirstAddress

Else

' 如果到了这里，则没有找到匹配的

Results.AddItem

Results.List(RowCount, 0) = "没有找到"

End If

End With

End Sub