Question

vba实现不同工作表间查询匹配？

有三个数据表，sheet1为姓名信息表，包含姓名和序号；sheet2为座位排序表，根据一定格式将序号排好；sheet3为座位图，格式与sheet2一致。需要根据sheet2中的序号在sheet1中寻找对应姓名，填入sheet3，如何用VBA实现





Answer 1

VBA实现起来也不难，但是公式的话，一个公式就搞定的了。不明白这位同学为什么一定要问VBA如何实现？两种方法如下，经测试都有效，效果如图。

（1）、公式法，工作表"座位图"中的B5单元格输入如下公式，右拖复制，下拖复制即可。

=IF(座位排序规则!B5="","",INDEX(人员信息!$B:$B,座位排序规则!B5+1))

（2）、VBA法，下面过程放在代码页，运行即可。

Sub 座位图对号入座()

  Dim A&, R As Range

  On Error Resume Next

  For A = 1 To 67

    Set R = Sheets("座位排序规则").Cells.Find(A, , , xlWhole)

    Sheets("座位图").Range(R.Address) = Sheets("人员信息").Range("B" & A + 1)

  Next

End Sub

图一

图二

图三

追问

感谢，公式自己会用，主要是觉得数据量大的话拖起来麻烦。
For A = 1 To 67，这个可以改成自动获取表1行数，然后再去查找吗？
因为表1中数据量不定