电子表格中两列姓名，如何实现相同名字自动连线，谢谢了。

ui777

两列添加姓名后，会有很多姓名，两列名字基本一致，可能有不同的，把A列的名字与B列相同的自动连线，请问如何实现，谢谢。

dengxingchang

构建“带直线的散点图”。做起来挺麻烦的：

1. 假设A列是 x = 1，y = A、D列非空单元格数量两者中最大值-1 依次递减的数字。x、y 形成散点；
2. 假设D列是 x =2， y = A、D列非空单元格数量两者中最大值-1 依次递减的数字。x、y 形成散点；

那么，问题转化为查找上面两组散点的对应关系。转化为两步：
3. 查找D列在A列里的位置（Vlookup），查不到的取 NA（）
4. 形成 带直线连接的散点数据（作图数据）。由于散点连线必须按1-2-空 - 1-2-空 这样的方式，否则线段会首尾相连。
    4.1 构建辅助数据 1、2、3、…… 序列
    4.2 构建辅助数据 1-2-0 （对4.1数据用 Mod（ ,3）)
    4.3 构建辅助数据 1-1-1、2-2-2、3-3-3、…… （用 Countif 函数统计 4.2数据中 1 的个数，需要用 $L2:L2 这种技巧）
    4.4 构建作图数据的散点 x （用if判断4.2数据，为1时取第3步查找到的A列x，4.2数据为2时取第D列x，4.2数据为0时取NA()）。我用了 offset来查找。
    4.5 构建作图数据的散点 y。同样用了offset来查找
    4.6 筛选作图数据中的 NA（），删除
    4.7 用作图数据作散点图，y轴范围 0.5 ~ 7.5（本例），x轴范围 1-2
    4.8 将散点图移动到表中，调整位置

完成

HONOURS

dengxingchang 发表于 2020-4-22 11:10
构建“带直线的散点图”。做起来挺麻烦的：

1. 假设A列是 x = 1，y = A、D列非空单元格数量两者中最大值 ...

复制粘贴吗？

ui777

dengxingchang 发表于 2020-4-22 11:10
构建“带直线的散点图”。做起来挺麻烦的：

1. 假设A列是 x = 1，y = A、D列非空单元格数量两者中最大值 ...

搜到了这个帖子，应该和这个差不多吧，但是不会修改。。。，http://club.excelhome.net/thread-87948-1-1.html
你这个我完全看不懂呀

dengxingchang

HONOURS 发表于 2020-4-22 13:12
复制粘贴吗？

手打的。
我自己在你的附件基础上做了一遍，但是因为是公司电脑，不能上传附件。

dengxingchang

ui777 发表于 2020-4-22 13:45
搜到了这个帖子，应该和这个差不多吧，但是不会修改。。。，http://club.excelhome.net/thread-87948-1-1 ...

先对着每个知识点学习下。
每个人都是这么走过来的。

ui777

dengxingchang 发表于 2020-4-22 14:01
手打的。
我自己在你的附件基础上做了一遍，但是因为是公司电脑，不能上传附件。

老师能把做好的传上来吗， 弄一下午没整出来，谢谢

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     For Each shp In .Shapes
   
6.       If shp.Type = 1 Then
   
7.         shp.Delete
   
8.       End If
   
9.     Next
   
10.     r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     r2 = .Cells(.Rows.Count, 4).End(xlUp).Row
    
12.     For i = 2 To r1
    
13.       For j = 2 To r2
    
14.         If .Cells(i, 1) = .Cells(j, 4) Then
    
15.           .Shapes.AddConnector msoConnectorStraight, .Cells(i, 2).Left, .Cells(i, 2).Top + .Cells(i, 2).Height / 2, .Cells(j, 4).Left, .Cells(j, 4).Top + .Cells(j, 4).Height / 2
    
16.         End If
    
17.       Next
    
18.     Next
    
19.   End With
    
20. End Sub
    

复制代码

chxw68

详见附件。

ui777

chxw68 发表于 2020-4-23 10:41
详见附件。

太感谢你了，就是要这样效果。弄两天了