老师能写个排序+去重+分列+对比

不可说7625 · 发表于 2024-1-12 22:36

把P列的数字，在Q列升序排列，并去重

比如
1、P3=45114，在Q3后面排序，并去重，1 4 5
以此类推

2、把后面得出的数字对比C3里面的数字，相同的填充红色。

3、弄个按钮运行。
谢谢。

过客fppt · 发表于 2024-1-12 23:16

你上一个帖子不是发过一样的东西了吗？数据都一样的，都有很多老师帮你解决了呀

过客fppt · 发表于 2024-1-12 23:17

就是你4号发过的帖子

准提部林 · 发表于 2024-1-13 11:06

拆分..去重..排序..填色//...by.准提部林
(看圖)

准提部林 · 发表于 2024-1-13 11:09

拆分..去重..排序..填色//...by.准提部林
(附件)

Xl0000121.rar (1 MB, 下载次数: 13)

不可说7625 · 发表于 2024-1-13 19:38

准提部林发表于 2024-1-13 11:09
拆分..去重..排序..填色//...by.准提部林
(附件)

我要在W列后编写其他公式，运行按钮会清除编写的公式。

准提部林 · 发表于 2024-1-13 20:24

不可说7625 发表于 2024-1-13 19:38
我要在W列后编写其他公式，运行按钮会清除编写的公式。

P列若數字不超6位數, 改下//
With Range("Q:V")
ReDim Brr(1 To UBound(Arr) - 1, 1 To 6)
With [Q2].Resize(UBound(Brr), 6)

不可说7625 · 发表于 2024-1-14 00:03

准提部林发表于 2024-1-13 20:24
P列若數字不超6位數, 改下//
With Range("Q:V")
ReDim Brr(1 To UBound(Arr) - 1, 1 To 6)

前面计算出来的，能不在删除了吗？只计算后面新增的

准提部林 · 发表于 2024-1-14 09:49

不可说7625 发表于 2024-1-14 00:03
前面计算出来的，能不在删除了吗？只计算后面新增的

改好了//

Xl0000121-2.rar (952.72 KB, 下载次数: 17)

回覆別人時...須按左下方"回复"按鈕

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

[求助] 老师能写个排序+去重+分列+对比