请教如何去掉重复值，只保留一个

今铭昔 · 发表于 2024-7-28 07:30

zoubo604 · 发表于 2024-7-28 08:15

谢谢各位分享。学习了。

zoubo604 · 发表于 2024-7-28 08:22

请问一下11楼的代码是什么语言？

fanion · 发表于 2024-7-28 08:29

zoubo604 发表于 2024-7-28 08:22
请问一下11楼的代码是什么语言？

可在WPS里用的，类似VBA的编程语法....

杨建营 · 发表于 2024-7-28 08:30

zoubo604 发表于 2024-7-28 08:22
请问一下11楼的代码是什么语言？

WPS用的JS。。。。。。。。。

沈默00 · 发表于 2024-7-28 08:31

如果数据不大，函数会更方便些，，，

=IF(COUNTIF(A$1:$A1,A1)=1,A1,"") 下拉

沈默00 · 发表于 2024-7-28 08:34

杨建营发表于 2024-7-28 08:30
WPS用的JS。。。。。。。。。

杨老师在研究JS？都好阵子没见你了

杨建营 · 发表于 2024-7-28 08:37

沈默00 发表于 2024-7-28 08:34
杨老师在研究JS？都好阵子没见你了

最近工作调整，有点忙，谢谢关心。只是知道JS，还不会，哈哈

一招秒杀 · 发表于 2024-7-28 12:25

最简单一个IF 公式，剩下的复制粘贴就好，哪里还需要那么多代码? 幸好我不会写代码

zhangcheng6688 · 发表于 2024-7-30 07:05

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
   Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
End If
d(arr(i, 1))(arr(i, 2)) = ""
Next
m = 1
For Each kk In d.keys
brr(m, 1) = kk
For Each kk1 In d(kk).keys
   brr(m, 2) = kk1
   m = m + 1
Next
Next
[h1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

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

请教如何去掉重复值，只保留一个

评分

评分

评分

评分