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

ui777 · 发表于 2020-4-22 09:22

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

dengxingchang · 发表于 2020-4-22 11:10

本帖最后由 dengxingchang 于 2020-4-22 11:13 编辑

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

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 · 发表于 2020-4-22 13:12

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

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

复制粘贴吗？

ui777 · 发表于 2020-4-22 13:45

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

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

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

dengxingchang · 发表于 2020-4-22 14:01

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

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

dengxingchang · 发表于 2020-4-22 14:03

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

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

ui777 · 发表于 2020-4-22 16:11

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

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

chxw68 · 发表于 2020-4-23 10:40

Sub test()
Dim r%, i%
Dim arr, brr
With Worksheets("sheet1")
For Each shp In .Shapes
If shp.Type = 1 Then
shp.Delete
End If
Next
r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
r2 = .Cells(.Rows.Count, 4).End(xlUp).Row
For i = 2 To r1
For j = 2 To r2
If .Cells(i, 1) = .Cells(j, 4) Then
.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
End If
Next
Next
End With
End Sub

复制代码

chxw68 · 发表于 2020-4-23 10:41

详见附件。

ui777 · 发表于 2020-4-23 13:53

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

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

		自动登录	找回密码
密码			免费注册

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