如何将VBA中Find方法的Apple参数替换为Sheet1选中的内容？

你不需要用Selection.Copy复制内容到剪贴板，直接获取选中单元格的文本值即可，同时还要修正原代码里的语法问题避免运行错误，以下是完整的修正代码：

Sub FindSelectedText()
    ' 检查是否选中单个单元格的内容
    If Selection Is Nothing Or Selection.Cells.Count > 1 Then
        MsgBox "请选中单个单元格内的特定单词"
        Exit Sub
    End If
    
    Dim searchText As String
    searchText = Selection.Value
    
    ' 在Sheet2中执行查找
    Dim foundCell As Range
    Set foundCell = Sheets("Sheet2").Cells.Find( _
        What:=searchText, _
        After:=Sheets("Sheet2").Range("A1"), _
        LookIn:=xlFormulas2, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        MatchByte:=False, _
        SearchFormat:=False _
    )
    
    ' 定位结果或提示未找到
    If Not foundCell Is Nothing Then
        Sheets("Sheet2").Activate
        foundCell.Activate
    Else
        MsgBox "Sheet2中未找到选中的内容"
    End If
End Sub

关键修改说明： #

• 移除了冗余的Selection.Copy，直接用Selection.Value获取选中单元格的文本，更高效且不占用剪贴板
• 将Find方法的What参数替换为searchText（即选中内容的文本值），替代原代码中的硬编码Apple
• 明确指定查找范围为Sheets("Sheet2").Cells，修正原代码中Cell.Find的语法错误
• 添加了选中内容的合法性检查，确保用户操作符合需求
• 增加了未找到内容的提示，避免因查找失败触发运行时错误

内容的提问来源于stack exchange，提问作者DW K