悬赏求助（二）成功解决的奖金100元（本期问题解决，奖金已发放）

wyan1086

问题：将S列数据分别以A-J、L-O列数据的升序排列依次排列在AA列。最好以宏键形式表达，要求开放算法。

规则：我们将选取两位最优且不重复的答案，分别发放100元奖金，我们确认后将联系得奖者，并在一天内发奖。

准提部林

直接用[貼付][排序], 可以嗎???

wyan1086

准提部林 发表于 2018-1-30 15:19
直接用[貼付][排序], 可以嗎???

我们平时就逐列排序粘贴的，数据量太大，所以想用更简便的方式

准提部林

Sub TEST()
Dim xArea As Range, xR As Range, R&, xS As Range, i&
[AA:AA].Clear
Application.ScreenUpdating = False
R = Cells(Rows.Count, 1).End(xlUp).Row
Set xArea = Range("A1:O" & R)
Set xS = Range("S1:S" & R)
Set xR = [Z1]
For i = 1 To xArea.Columns.Count
　　If i = 11 Then GoTo 101
　　Union(xArea.Columns(i), xS).Copy xR
　　xR.Resize(R, 2).Sort Key1:=xR, Order1:=xlAscending, Header:=xlNo
　　Set xR = xR(R + 1)
101: Next i
[Z:Z].Clear
End Sub
　
借ｚ列排序，再清除，
若太慢再說～～
　
　
　

wyan1086

准提部林 发表于 2018-1-30 15:54
Sub TEST()
Dim xArea As Range, xR As Range, R&, xS As Range, i&
[AA:AA].Clear

晚点我们试一下，能否做成附件发给我们？万分感谢，一群文科生，实在是搞不懂怎么操作……

wyan1086

mikezhan 发表于 2018-1-30 15:58
我发现，你们提问时，能不能表达清晰一点？ 是你语文水平差，还是我理解能力差？

根本不知道，你的要求 ...

以A到O列数据为依据，将AA列以升序重新排列，能否理解，我们表达的可能有问题

活在理想的世界

表达的没问题，只是我真心没看明白啥意思。可有人已经写出代码来了，而我还再想楼主这是要做什么。

这怕是智商的差距了。

wyan1086

mikezhan 发表于 2018-1-30 16:02
还是没听明白。

你能不能学着，把话表达清楚 ？

不好意思，表达水平太差，您的理解力肯定没问题，是我们表述不清楚。那就不劳您费心了，我们等其他老师解决