VBA如何在多个表单里查找某一个单元格内容并且复制所有查找结果同行的几列内容到另一个工作表

Question

如何用VBA编写类似搜索功能的代码，直接从多个表单里查找某单元格输入的内容，并且将搜索到的结果复制到另一个工作表。

Answer 1

set rng=[A1:Z500].find("123")

if not rng is nothing then a=rng.resize(1,10)

先从指定区域查找123，找到的话就把找到的单元格右侧10个单元格内容放到数组a，你后面再把a的内容给到你的目标区域即可。