悬赏求助（三）最佳答案奖金100元

wyan1086 · 发表于 2018-1-31 17:52

问题：将A-T列数据中有颜色标记的数字，对应在U列的映射数字，分别在W-AP列中列出。如A列第四个数字标记为红色，在U列中第四个数字是7，则在W列中将7列出，以此类推。

奖励规则：我们将选择两个最优且不重复的答案，分别给予100元奖金。要求开放算法，最好是用宏键方式附件发出答案。
敬候各位大神指教。

wyan1086 · 发表于 2018-1-31 17:53

如果问题表述不够清楚，可以具体再沟通，感谢

山菊花 · 发表于 2018-1-31 19:57

送给你，不要钱。

未忘初心 · 发表于 2018-1-31 20:24

看看是不是这样

wyan1086 · 发表于 2018-1-31 20:36

未忘初心发表于 2018-1-31 20:24
看看是不是这样

对滴，能否把最后的用时提醒去掉？另外，私信发给我您的支付宝账号，给您转奖金。
非常感谢您的帮助

wyan1086 · 发表于 2018-1-31 20:39

山菊花发表于 2018-1-31 19:57
送给你，不要钱。

感谢，但使用不了

未忘初心 · 发表于 2018-1-31 20:39

这个去掉了

wyan1086 · 发表于 2018-1-31 20:48

未忘初心发表于 2018-1-31 20:39
这个去掉了

感谢，私信请回复一下

山菊花 · 发表于 2018-1-31 21:16

wyan1086 发表于 2018-1-31 20:39
感谢，但使用不了

右键点击按钮：指定宏——在打开的窗口中选择宏——确定。
按Alt+F11查看、修改宏。

准提部林 · 发表于 2018-2-1 15:36

Sub TEST()
Dim Arr, R&, C&
Application.ScreenUpdating = False
With [W:AP]: .ClearContents: .Interior.ColorIndex = xlNone: End With
Arr = Range([U1], Cells(Rows.Count, 1).End(xlUp))
R = UBound(Arr): C = UBound(Arr, 2)
For j = 1 To C - 1
For i = 1 To R
　　Arr(i, j) = ""
　　If Cells(i, j).Interior.ColorIndex = xlNone Then GoTo 101
　　Arr(i, j) = Arr(i, C)
　　[V1].Cells(i, j).Interior.ColorIndex = [U1].Cells(i, 1).Interior.ColorIndex
101: Next i
Next j
[V1].Resize(R, C - 1) = Arr
End Sub

复制代码

Xl0000293.rar (37.58 KB, 下载次数: 1)
　
　

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

[求助] 悬赏求助（三）最佳答案奖金100元