Excel 在B列中输入数字，然后在A列中查找数字

抱歉，如果标题混淆

我正在处理一个有点复杂的excel文件

基本上，我需要它把一个数字放在B列，让宏在a列找到相同的数字，然后复制上面的所有东西（包括那个数字）

我尝试过使用“查找”按钮，但似乎无法使其自动查找B列中列出的与A列相关的号码

这是我迄今为止尝试过的代码：

Range("D1").Select
Cells.Find(What:="12", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate 
Range("A58").Select
Range(Selection, Cells(1)).Select
Selection.Copy

---

好吧，我用我自己的方式解决了。 A列有一个模式，但变化部分是数字，如下所示：

tim
car
1
tim
car
2

等等。 在B列中，我做了一个公式=IF（A3=C1，“复制”，“”） C1将具有用户输入的数字。 然后我在B列中做了一个宏查找“COPY”，然后将其向左偏移，使其一直复制到列的顶部

看起来是这样的：

Sub Copy_1()

Application.ScreenUpdating = False
Range("B:B").Select
Selection.Find(What:="COPY", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
ActiveCell.Offset(0, -1).Activate
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Application.ScreenUpdating = True

End Sub

---

两件简单的事情：（1）A列中的条目是唯一的吗？或者A列中可能有多个条目与B列中输入的值相匹配？和（2）你能给我们看一些你已经尝试过的代码片段吗？很抱歉等待了这么久，我们度过了漫长的一周。列A几乎是一种模式，除了数字值之外，其他一切都是一样的代码“范围”（“D1”）。选择单元格。查找（内容：=“12”，后面：=ActiveCell，查找：=xlFormulas，查找：=\uXLPart，搜索顺序：=xlByRows，搜索方向：=xlNext，匹配框：=False，搜索格式：=False）。激活范围（“A58”）。选择范围（选择，单元格（1））。选择选择。复制“代码”我希望是一个宏，允许用户输入一个数字，然后找到该数字并复制该数字以上的所有内容。我似乎不知道如何让用户输入一个号码，然后让它搜索那个号码