EXCEL两个表联合起来进行数据处理

Private Sub CommandButton1_Click()

    Dim i As Long, Rng As Range

    For i = 1 To [a65536].End(3).Row

        Set Rng = Sheet1.[a:a].Find(Cells(i, "A"), , , xlWhole)

        If Not Rng Is Nothing Then Cells(i, "B") = "Sheet1-A" & Rng.Row

    Next

End Sub

给你一个VBA的解决方案吧，对于多数据处理，VBA拥有速度上的绝对优势！！

材料/工具：Excel2010

1、我们在同一个Excel中看到有sheet1和sheet2

2、我们要把sheet1中表格的数据的D1数据中的数字和sheet2中的表格D1数据实现联动效应。

3、我们看一下D1中加入的公式是=（A1：B1：C1）的和，也就是当A1,B1，C1,中的数据任何一个数据变化，D1的数据就会发生变化。

4、我们明白这个原理之后，需要把sheet1中D1的公式复制到sheet2中D1的公式当中，如果是整列都要变动，那么只需要拖动整列表格即可实现整列的表格与Sheet1中的表格联动效应。

5、如果在同一个表格中实现联动效应也很简，我们将A1的数字与A5的数字实现联动只需要在A5中输入算法=A1然后按回车就可以了。

6、在实现表格联动需要注意的是，在选中的表格中的算法不能够删除，如果联动一方表格的算法删除，在另一个表格中将无法实现联动效应。

7、在表格增添、删减之后表格会出现行数和列数发生变化，这个时候我们需要重新输入算法，如果输入的算法的表格没有反应，我们需要将所在的表格的的单元格格式改成常规就可以了。

---