select列并从其他单元格中查找值

我需要select“D：D”列，所以我做了。 那么我需要find其他单元格的列值。 所以我需要做的是：

1. 我在“J5”细胞中获得了价值。
2. 我需要在D：D中find这个价值
3. 我需要将一个单元向右移动
4. 我需要从单元格复制一切（例如 – E2）
5. 粘贴在“J6”

一切都在一张纸上，但结果将用于其他纸张。 这是明天的学校项目。 我整个周末都在努力抢答案，但是我不能自己做，而且我的脑子被洗了。

码：

Columns("B:B").Select Selection.Find(What:="VA22GU1", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate 

Answer 1

所以我需要做的是：

我在“J5”细胞中获得了价值。

我需要在D：D中find这个值

我需要把一个单元移到右边

4.我需要从单元格复制所有内容（例如 – E2）

5.用“J6”

用这个：

 '1. Variant with copy method Sub test() On Error Resume Next If [J5].Value <> "" Then Columns("D:D").Find([J5].Value).Offset(, 1).Copy [J6] Else MsgBox "Cell [J5] is empty!" End If If Err.Number > 0 Then MsgBox "Column [D] does not contain search criteria: " & [J5].Value Err.Clear End If End Sub '2. Variant without copy method Sub test2() On Error Resume Next If [J5].Value <> "" Then [J6].Value = Columns("D:D").Find([J5].Value).Offset(, 1).Value Else MsgBox "Cell [J5] is empty!" End If If Err.Number > 0 Then MsgBox "Column [D] does not contain search criteria: " & [J5].Value Err.Clear End If End Sub 

Answer 2

为什么每个人都想把一个macros观的公式作战？

在单元格J6中键入

 =OFFSET(D1,MATCH(J5,D:D,0)-1,1,1,1) 

现在查看帮助中的OFFSET和MATCHfunction。

详细阐述@ L42评论

 =INDEX(D:D,MATCH(J5,D:D,0)) 

同样的结果，更紧凑，只是表明有不止一个方法去皮肤猫。