提取所有唯一姓名，不重复姓名和重复姓名唯一程序

lushang2018 · 发表于 2023-4-8 20:55

吴中泉发表于 2023-4-8 20:26
真得很清楚，代码很新颖。就是不能复制粘贴了

8楼和9楼是一样的代码

吴中泉 · 发表于 2023-4-9 08:45

lushang2018 发表于 2023-4-8 20:55
8楼和9楼是一样的代码

谢谢,回复时没有注意到8楼

qqyyh · 发表于 2023-4-9 09:19

谢谢大神！一下解决我困惑多时的问题！

chxw68 · 发表于 2023-4-9 12:15

详见附件。

准提部林 · 发表于 2023-4-9 13:31

字典//重复值三分天下

Sub TEST_A1()
Dim Arr, xD, A, T$, i&, N&(3), c%
Set xD = CreateObject("scripting.dictionary")
Arr = Range([c1], [c65536].End(3))
For i = 4 To UBound(Arr)
T = Arr(i, 1): xD(T) = xD(T) + 1
Next i
ReDim Arr(1 To xD.Count, 1 To 3)
For Each A In xD.keys
N(1) = N(1) + 1: Arr(N(1), 1) = A
c = 3 + (xD(A & "") = 1)
N(c) = N(c) + 1: Arr(N(c), c) = A
Next A
[d4].Resize(xD.Count, 3) = Arr
End Sub

准提部林 · 发表于 2023-4-9 13:37

代碼審核中...看圖//

吴中泉 · 发表于 2023-4-9 14:15

准提部林发表于 2023-4-9 13:37
代碼審核中...看圖//

大侠的代码让人耳目一新,犹如文言文简洁.无奈功底有限,一时看不懂,得慢?消化

吴中泉 · 发表于 2023-4-9 14:27

chxw68 发表于 2023-4-9 12:15
详见附件。

老师的代码通俗易懂,我正在拜读您的另一贴子发的代码(出入库汇总),学习字典的嵌套使用.今天就用上了.

准提部林 · 发表于 2023-4-9 14:33

吴中泉发表于 2023-4-9 14:15
大侠的代码让人耳目一新,犹如文言文简洁.无奈功底有限,一时看不懂,得慢?消化

其實不複雜//

吴中泉 · 发表于 2023-4-9 15:18

准提部林发表于 2023-4-9 13:37
代碼審核中...看圖//

这句关系运算: c = 3 + (d(A & "") = 1) ,开始没懂.诸如:w = 3+(3>1),w=2,即3+true应等于4,true为1,假为0,而这里真(true)为-1,绕了一会.

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

[原创] 提取所有唯一姓名，不重复姓名和重复姓名唯一程序

评分