Question

VBA 指定在J列搜索某单元格的内容并复制

我想在Total工作表 在指定的10列搜索cells(6,1)内容 跳转到该单元格 并复制该单元格这行2列到指定的工作表

Answer 1

其实你的这个要求并不难实现，如果设置得当的话，也不需要VBA。只用公式，名称就完全可以达到这个目的。

当然，我这个是在同一个工作簿中：

1、 定义B1:I11，即原数据表为 名称 “xuesheng”；

2、在目标表中姓名列下输入如图的公式，再下拉到所需要的单元格即可。

对于不在同一个工作簿中的，可以用以下方法来变相实现:

1、 在目标表所在的工作簿中新建一个工作表（以下简称“A表”），同时，打开原基础数据表（以下简称“B表”）；

2、 在A表中A1单元格输入“=”，然后选到B表，点击B表的A1单元格；也就是建立引用关系。

至于是用绝对引用，还是用相对引用，请自行根据应用实际情况决定；

3、此时就可以像之前在一个工作簿一样操作，设置，就能显示所需要的姓名列表了。

每次打开该工作簿时，会提示要更新链接，直接点确定就好了。嫌麻烦，可以在“信任中心”里把“更新链接”设置为启动时自动更新。

追问

我要想用公式 就不会用VBA了 不过还是谢谢了

Answer 2

就逻辑来说，这个比较简单
但仅其中一小段VBA，没前没后的，也不知道引用哪，不好写。
要不你直接把整个需求展示出来，然后表发给我，我瞧瞧。

Answer 3

根据A列，查找第10列J列的数据
然后复制相关的J:K，2列的数据到另1个sheet？

Answer 4

绝大部分功能单一的需求，都可以30行以内的VBA搞定。
前面回答者中那个用Find的挺好。尽量避免大量数据遍历循环，因为真的效率低。

Answer 5

Sub test()
k=2
For i=1 to 10000
If Cells(i ,10)=Cells(6,1) then
Sheets("指定表").Cells(k,1)=Cells(i ,2)
Exit for
End if
Next
End sub