Excel 在列中搜索相同的数字单元格，并将值粘贴到其他位置

我在这里附上了图片，请注意，我想在第一列中放置1到4个值，即1到4个serch的值，并单独粘贴到其他位置。 如果我搜索1，则值为1 ex50,5或更多 如果我搜索2，则值为2。 帮助我是excel vba新手

在

G3

单元格中使用以下数组公式，然后向下和向右拖动

=IFERROR(INDEX($A$1:$C$12,SMALL(IF($A$1:$A$12=$G$1,ROW($B$1:$B$12),""),ROW(1:1)),COLUMNS($A$1:B$1)),"")

按CTRL+SHIFT+ENTER键计算公式，因为它是一个数组公式

------------------------------------编辑----------------------

首先将值1、2、3或4放入

G1

，然后运行宏

        Sub CopyFilterData()
On Error GoTo ErrHandler
    Dim filterRange As Range
    Dim copyRange As Range
    Dim lastRow As Long

    lastRow = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

        Set filterRange = Sheet1.Range("A1:C" & lastRow)
        Set copyRange = Sheet1.Range("A2:C" & lastRow)

          filterRange.AutoFilter field:=1, Criteria1:=Range("G1").Value
           copyRange.SpecialCells(xlCellTypeVisible).Copy Range("F3")
            Sheet1.AutoFilterMode = False
            Columns("F:F").Select
          Selection.ClearContents
        Range("G1").Select

Exit Sub
ErrHandler:
MsgBox "Error Number: " & Err.Number & vbCrLf & Err.Description
Sheet1.AutoFilterMode = False
End Sub

---

欢迎来到SO！你似乎误解了这个网站的目的。请花一分钟来读取，再花五分钟来读取和。再次，键入公式后必须按

CTRL+SHIFT+ENTER

，否则它将不起作用。我想将其作为VBA代码运行，请将代码发送给我，公式不可用NEEDED@MahanteshAmbole，请仔细阅读Mat在您的问题下的评论Yeh！它的工作我很高兴！！！！感谢you@MahanteshAmbole很高兴它起作用了。你应该接受我的回答。把我的答案打绿色。