VBA错误13和查找代码

我遇到类型不匹配的问题，在我的表中，该值是常规值，因为它是从透视表复制和粘贴的值

此处抛出错误：

Set mf = Columns("F").Find(What:=ONE, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)



Dim ONE As String

Worksheets("Chart").Activate
Columns("A:B").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("F2").Select
Application.CutCopyMode = False
Selection.Copy
ONE = Cells(2, "F").Value
Sheets("Paste Data Table").Select

Set mf = Columns("F").Find(What:=ONE, After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False)

ActiveCell.EntireRow.Select

Application.CutCopyMode = False
Selection.Copy
Sheets("Top 5 Breakdown").Select

Sheets("Top 5 Breakdown").Select
Range("A2").Select
ActiveSheet.Paste
Worksheets("Paste Data Table").Activate
Range("A2").Select
Application.CutCopyMode = False

---

导致此

Find

方法出错的原因是：

After:=ActiveCell

---

在这种情况下，不能在不在搜索范围内的单元格F列后搜索。您的活动单元格不在F列中。

此

Find

方法中导致错误的原因是：

After:=ActiveCell

在这种情况下，不能在不在搜索范围内的单元格F列后搜索。您的活动单元格不在F列。

之后：=范围（“F1”）

之后：=范围（“F1”）