Question

很抱歉，如果标题令人困惑。

我正在处理一个有点复杂的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

Answer 1

好的，所以我以自己的方式解决了这个问题。 A列有一个模式，但变化的部分是这样的数字：

tim
car
1
tim
car
2

等等。在B栏中，我做了一个公式= IF（A3 = C1，＆＃34; COPY＆＃34;，＆＃34;＆＃34;） C1将具有来自用户的数字输入。然后我做了一个宏观发现＆＃34; COPY＆＃34;在B列中，然后将其偏移到左侧并使其一直复制到列的顶部。

看起来像这样：

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

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

1 个答案: