对比两列不同，用Excel玩起了连连看，简直不务正业!

相信大家都玩过连连看。

今天在Excel里面也玩一下。

如下图。

如何判断A列与D列哪些相同，哪些相同？

以前教程写过几篇，用不同的方法。

今天用一种与众不同的方法，从连连看中深受启发。

相同的需要用连接线连接起来，完成之后就是以下效果。

可不是用肉眼看到一个，然后赶紧绘制一个线条，工作量太大了。

并且还要考虑到不断添加成员的情况，即使添加一个人，也是一样可以连接的。

一瞬间，就全部找出来了，不过这样玩连连看好像不太好玩呀。

使用代码如下：

Private Sub CommandButton1_Click()Dim i&, j&, lx&, ly&, rx&, ry&

For i = 2 To Range("a1048576").End(xlUp).Row For j = 2 To Range("d1048576").End(xlUp).Row If Cells(i, 1) = Cells(j, 4) Then lx = Cells(i, 2).Left ly = (Cells(i, 1).Top + Cells(i + 1, 1).Top) / 2 rx = Cells(i, 4).Left ry = (Cells(j, 4).Top + Cells(j + 1, 4).Top) / 2 ActiveSheet.Shapes.AddConnector(msoConnectorStraight, lx, ly, rx, _ ry).Select Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle End If NextNextRange("a1").SelectEnd Sub

一次性删除箭头的代码如下：

Private Sub CommandButton2_Click() Dim o As Shape For Each o In Sheets("Sheet1").Shapes If o.Name Like "Straight Arrow Connector *" Then o.Delete NextEnd Sub

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。