Excel 循环并偏移到。查找并复制所有引用

我试图让这段代码复制它在其中找到目标变量所有匹配项的整行。然后它需要将其放入一个与变量同名的新表中。该工作表已经由整个程序的不同部分创建

子副本_数据（）

---

您不能使用

Find

作为函数名，因为这已经是VBA中的一个函数。另外，由于您希望复制信息，您可能需要一个

子
而不是
函数
。看起来你已经到了那里，哪里出了问题？你也需要
findnext
。
range（“A:A”）。find
将其限制在A列。正如我之前问的，
计算机如何知道你想要什么？
对你来说，很明显
目标是什么。电脑能读懂你的心思吗？编辑：在您匆忙确定
目标之前，请考虑工作表中的所有其他对象。真的，想想你认为理所当然的一切。编辑2：是的，如果你觉得自己愚蠢，想想电脑吧^我马上就要走了<代码>工作表（“原始数据”）。范围（“F:F”）。查找（
就足够了。请限定所有对象，如
范围
，
单元格
您不能使用
查找
作为函数名，因为这已经是VBA中的一个函数。此外，由于您想复制信息，您可能需要一个子
而不是
函数
。看起来您已经达到了目标，w您遇到麻烦了吗？您还需要
findnext
。
范围（“A:A”）.find
将其限制在A列。正如我之前问的，
计算机如何知道您想要什么？
对您来说，
目标
是什么是非常明显的。计算机能读懂您的心思吗？编辑：在您急于限定
目标
之前，请考虑一下您工作表中的所有其他对象。真的，请考虑一下您所采取的所有措施当然。Edit2：是的，如果你觉得自己很笨，只要想想我即将离开的电脑。
工作表（“原始数据”）。范围（“F:F”）。查找（
就足够了。请限定所有对象，如
范围
，
单元格
 Dim NumberofFunctions As Integer
 Dim X As Integer
 Dim Target As String
 Dim Last_Row As Long
 Dim Last_Column As Long

 Sheets("Calculations").Select
 NumberofFunctions = ActiveWorkbook.Worksheets("Calculations").Range("B3", Worksheets("Calculations").Range("B3").End(xlDown)).Rows.Count





     For X = 1 To NumberofFunctions
        Sheets("Calculations").Select
        Target = Range("B2").Offset(X, 0)

        Sheets("Raw Data").Select
        NumberofFunctions = ActiveWorkbook.Worksheets("Calculations").Range("B3", Worksheets("Calculations").Range("B3").End(xlDown)).Rows.Count

       '************This code finds the last row used in the sheet******
        Last_Row = Cells.Find(What:="*", _
                After:=Range("A1"), _
                LookAt:=xlPart, _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious, _
                MatchCase:=False).Row

        '***********This code finds the last column used in the sheet****
        Last_Column = Cells.Find(What:="*", _
                After:=Range("A1"), _
                LookAt:=xlPart, _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious, _
                MatchCase:=False).Column

        '*************This portion of the code finds the occurrences******
          ActiveWorkbook.Worksheets("Raw Data").Range("F:F", Worksheets("Raw Data")).Find(What:=(Target), _
                After:=ActiveCell, _
                LookIn:=xlFormulas, _
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False, _
                SearchFormat:=False).Activate


      Next X

 End Sub