悬赏求助（六）最佳答案奖金100元（奖金已发放）

wyan1086 · 发表于 2018-2-27 11:55

本帖最后由 wyan1086 于 2018-2-28 17:37 编辑

求助6.png

问题：L前十列（B-K列）中带颜色标记的数字在L列中映射的数字，依次显示在AK-AT列中。再将M列前面是中带颜色标记的数字在M列中的映射数字显示在AV-BE列中。以此类推，直到将AE前十列的带标记数字在AE列中的映射数字也依次显示出来。
要求用宏建表达，算法开放。
最佳答案当天发放100元奖金，感谢参与支持。

七夕、 · 发表于 2018-2-27 13:24

本帖最后由七夕、于 2018-2-27 13:33 编辑

看看能不能骗到钱...

鄂龙蒙 · 发表于 2018-2-27 13:27

【映射的数字】？？？

wyan1086 · 发表于 2018-2-27 13:37

鄂龙蒙发表于 2018-2-27 13:27
【映射的数字】？？？

对，就是对应的同一行的数字

wyan1086 · 发表于 2018-2-27 21:19

七夕、发表于 2018-2-27 13:24
看看能不能骗到钱...

老兄，不太符合要求，请仁兄仔细看下要求，随时沟通

wyan1086 · 发表于 2018-2-27 21:21

七夕、发表于 2018-2-27 13:24
看看能不能骗到钱...

我要的是20列的前十列映射数，您只做了两列的。而且没看到宏建，所以不太会用呢

准提部林 · 发表于 2018-2-28 10:16

需求太唤y, 含糊做一下

Sub TEST()
Dim R&, xD, i&, j&, k%, xR As Range, xH As Range
Columns("AJ").Resize(, 221).Clear
Set xD = CreateObject("Scripting.Dictionary")
R = Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
[AJ1].Resize(R).Interior.ColorIndex = 6
For i = 1 To 29
For j = 1 To R
　　If Cells(j, i + 1).Interior.ColorIndex <> xlNone Then xD(i & "_" & Cells(j, i + 1)) = 1
Next j
Next i
Set xH = [AK1]
For i = 1 To 20
For j = 1 To R
　　Set xR = [L1].Cells(j, i)
For k = 1 To 10
　　If xD(i + k - 1 & "_" & xR) <> 1 Then GoTo 101
　　xH(j, k) = xR
　　If xR.Interior.ColorIndex <> xlNone Then xH(j, k).Interior.ColorIndex = xR.Interior.ColorIndex
101: Next k
Next j
xH(1, 11).Resize(R).Interior.ColorIndex = 6
If i < 20 Then Set xH = xH(1, 12)
Next i
End Sub

复制代码

Xl0000324.rar (100 KB, 下载次数: 1)
　
　

七夕、 · 发表于 2018-2-28 10:37

wyan1086 发表于 2018-2-27 21:21
我要的是20列的前十列映射数，您只做了两列的。而且没看到宏建，所以不太会用呢

那接着来骗...

wyan1086 · 发表于 2018-2-28 14:18

七夕、发表于 2018-2-28 10:37
那接着来骗...

太棒了！完美作品。能否稍稍修改一下：
1，只显示了19组数据，AE列的映射数字漏掉了，请补充一下。
2，能否取消“显示”提示。

另外，请将您的支付宝账号私信给我，修改完成后马上支付奖金。
万分感谢您的帮助~

wyan1086 · 发表于 2018-2-28 14:32

准提部林发表于 2018-2-28 10:16
需求太唤y, 含糊做一下
　

老兄的答案也很棒

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

[求助] 悬赏求助（六）最佳答案奖金100元（奖金已发放）

评分

评分